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RACE-COURBE 




Abdoul-Carime HADJA 



Valable pour CPC 
464-6128 



Ce programme est un utilitaire 

mathématique pouvant tracer la 

courbe représentative d'une 

fonction quelconque. 



m? 

L'écran se compose de trois fenê- 
tres : 

- Dans la plus grande, figure le tracé 
de la courbe. 

- Dans la plus petite, sont affichées 
les informations suivantes : 

• i et j : échelles du repère 

• I : intervalle du tracé 

• X : partie de l'axe des abscisses visible 
sur l'écran 

• Y : partie de l'axe des ordonnées visi- 
ble sur l'écran 

• £2 : origine du repère 

- La dernière fenêtre sert à la saisie 
des différents paramètres. 



Pendant le tracé l'abscisse d'un point 
s'affiche en rouge et son ordonnée en bleu. 

Les coordonnées des points sont ar- 
rondies à 10'. Pour plus de précision se 
servir des louches "1" et "2" du pavé 
numérique. 

Pendant le tracé de la courbe, vous 
pouvez : 

- appuyer sur "SPACE" pour arrêter 
le tracé, 

- appuyer sur "ESC" pour "pauscr" 
et jeter un coup d'ccil sur les coordon- 
nées ensuite sur une aute touche pour re- 
lancer. 

PAVE NUMERIQUE : 
TOUCHES DE FONCTIONS 

-"O" : Permet d'EDITcr directement 
la ligne concernant les paramètres du tracé 
qui sont : 

• (i, j) échelles du tracé 

• (xi, xf) intervalle du tracé 

• (xo, yo) coordonnées de l'origine 

Attention ! Ne pas effacer les deux 
points après les variables. 



- "." : Permet de changer la fonction 
dont on désire le tracé 

- "ENTER" : Exécute le tracé de la 
courbe représentative de la fontion en- 
trée 

-"1": Demande l'abscisse d'un point 

- "2" : Affiche son ordonnée 
Remarque : Pas besoin d'appuyer sur 

"ENTER" après avoir entré l'abscisse 

-"3" : Même fonction que "ENTER" 
mais n'efface pas l'ancienne courbe 



_"4" 


: Affiche 


'cos(" 


_"5" 


: Affiche 


'sin(" 


-"6" 


: Affiche 


•ian(" 


_-7" 


: Affiche 


•sqr(" 


-"8" 


: Affiche 


•abs(" 


_"9» 


: Affiche 


•int(" 



Par ailleurs, les parenthèses peuvent 
être obtenues directement en appuyant 
sur les touches des crochets et "+" et "*" 
peuvent être obtenus directement sans 
appuyer sur"SHIFT". 

(Attention ! Pour les claviers AZER- 
TY* = "M"ct+ = "ù"). 











•III 








20 '• 






>LB 


i 








30 •• 




TRACE COURBES 


>LC 


i 








40 »! 






>LD 




50 '• 

• 
60 '• 




le 19/01/90 


>LE 


par 


Hadja Abdoul Cariae 


>LF 


\ 








70 •• 






>LG 


i 









80 'iiiMiiiiiiiiiiiiiiiiiiiiiiiiii >LH 
iiii 

90 ' >U 

100 '_REDEF. CLAVIER t PRESENTATI >RB 

ON 

110 KET 7,"sqr( , :KET B.'abstVKET 9 >WE 
.■inttVKEÏ 4,"cos(*:KET 5,"sinC:K 
ET 6,'UnC:KEÏ l.'i^KET 2,»:?f«y 
■»CH»»(13):KET 3,'run ÎBO^CHRJUS) 
:KET 0,'cls:edit 200 , *CHR»(13):KET 
10,*cls:edit 260MCHR»(13):KEY 11,* 
run îyO'tCHRItU) 

120 KEt 0EF 28, 1,43, 59: KET DEF 29,1 >LA 
,42,S8:KET DEF 17,1,40:KET DEF 17,1 
,40,91:KET DEF 19,1,41,93:KET DEF 2 



6,1,58:H0DE 1:STNB0L AFTER 147:G0SU 

B 510 

130 INK 0,0: 1 NK 1,6:INK 2,U:INK 3, >CB 

25 

140 PAPER 0:B0RDER 0:UINDOU 11,27,3 >HE 

9,3,7:PAPERI1,1:PENI1,3:VIND0U 12,1 

,25,1,25:PAPERI2,0:PAPERI2,0 

150 PEN 3:L0CATE 27,1:PRIHT*TÏACE C >BJ 

0URBES':LOCATE 28,25:PEN 1:PRIMT CH 

R»(164);:PEN 2:PRINTM990 , ;:PEN 3:P 

RINT\*;:PEN 2:PRIMT , HADJA" 

160 PEN 2:F0R a=3 T0 23:L0CATE 26,a >AN 

:PR1NT CHR»(H9):L0CATE 40,a:PRINT 

CHR»(U9):NEÏT:U)CATE 26,2:PRINT CH 

RI(150);STRING»(13,154);CHRt(lS6):L 




OCATE 26,B:PIINT CHRf (1S1);ST1IMG»( 

13,154>;CHI«(1S7>:L0CATE 26, 24: PB IN 

T CHR*(147>;STRlNGt(13,154);(W$(15 

3) 

170 VINDOU 27,39,9,23:PAPER 3:PEH 1 >QH 

:CLSI1:CLSI2 

180 CLS:ORIGIN 0,0:PLOT 0,0,2:DBAV >WB 

0,398:DRAU 400,398:DUV 400,0:DRAV 

0,0 

190 * DONNEES t CALCULS l TRACER >TA 

200 1=5: J=5: il=-20: >KH 

if=20: io=0: y 
0=0 

210 i=ABS(INT(i))»4: j=ABS(IMT( j))t4 >LC 
:io=INT(io):yo=IHT(yo):p=ABS(p):OBI 
GIN 20O,2ÛO:TAG:PL0T -6,6,2:PRINT C 
HR*(227);:TAG0FF:GOSUB 370:0BIGIN 2 
00tio»i,200*yo»j:IF ii<uin THEN il 
=«in 

220 IF if)mi THEN if «a. >IB 
230 FOB i=il TO if STEP 0.1 >UV 
240 ON ERROR GOTO 530 >PK 

250 p--PI:n=INT(i):» = BOUND(i,l) >A2 
260 DEF FN y=C0S(y>2.2)iSIN(ifi) >AB 
270 ON BREAK GOSUB 480 >QU 

280 il=Hi:yl=FNyij >PF 

290 IF t=0 THEN GOSUB 490 >TA 
300 IF er=ll THEN HOVE i,yy:er=0 a >TF 
SE DRAV il,yl,3 
310 ■ AFFICHAGE DES COORDONNEES >RE 



320 PEN 1:PRINT USING* lllll.l';i >EK 
:PEN 2:1F FNy=ROUND<FNy,0> THEN PKI 
NT USING* • llltl';FNy ELSE IF FNy= 
R0t*4D(FNy,l) THEN PBIMT USING* • «I 
Ml.l'iFNy ELSE PRIMT USING' llll 
l.l*;FNy 

330 IF INKET(47)=0 THEN GOTO 360 >TV 
340 NEIT >EC 

350 ' DESSIN DU REPERE >BJ 

360 ORIGIN 0,0:PLOT 0,0,2:DRAW 0,39 >ZB 

8:DRAU 400,396:DRAU 400,0:DRAU 0,0: 

PRINT CHR»(7):PEN 1:08IGIN 200,200: 

END 

370 FOR il=0 TO -196 STEP -i >UF 

380 PLOT il,-196,l:DRAM il,196:PL0T >DA 

il, 196.1: DRAW «1,196 
390 NEn >EH 

400 FOR yl=0 TO -196 STEP -j >UB 

410 PLOT 198, y 1,1: DRAW 198,yl:PL0T >DG 

198, y 1,1: DRAW 198, y 1 
420 NEn >EB 

430 ir=ioii:yr=yoij:PLOT 200, yr, 2: >LB 
DRAU 198, yr :1F it)198 THEN RETURN E 
LSE PLOT «r, 200: DRAW ir,200 
440 • AFFICHAGE DES *INF0S*_ >RJ 

450 iii»= (200*ir)/i:iui--(400»iiin >KH 

•M/1 

460 yiln=-(200»yr)/j:yiaiM400«yiln >KU 



470 CLSIl:PRlNTIl,USING*i=lll :j=«l >VX 

I*; i/4;J/4:PRINTIl, USING* T llll; Itl 

II';ii;if:PBINTIl,USING'I*llll;lltl 

i*;nin;iui:PRINTIl,USING*T'tlll;l 

•lll*;yain;yui:PRIHTIl,USING*?(ttt 

l;MII)*;io;yo 

480 RETURN >ZH 

490 HOVE «i>i,yl:t 1:RETURN >IN 

500 ' REDEF. DES CABACT. >RF 

510 SYHBOL 147,25,26,28,31, 1S:STHB0 >IB 
L 150,0,0,0, 15,31, 28,26,25:STHB0L 1 
51,25,26,28,31, 31, 28,26,25:STH80L 1 
53,152, 88,56, 248,240:STH80L 156,0,0 
,0,240, 248,56,88, 152:STHBOL 157,152 
, 88, 56, 248, 248, 56, 88, 152 : RETURN 
520 ' TRAITEMENT DES EBBEURS_ >RH 

530 IF ERROll THEN CLS:PEN 1:PRINT >DA 

CHW(7>;* - ERREUR: -■ 
540 IF ERR=S THEN PRINT' - SQR(-i) >EE 

550 IF ERR=6 THEN PRINT' ùyù>HAIIHU >HL 

H" 

560 IF ERR-11 THEN i=i«0.05:GOSUB S >WJ 

80:erll:GOTO 250 

570 END >TF 

580 IF FNy>0 THEN yy=ymaH jtlOOO >AA 

590 IF FNy<0 THEN yy^yiimj 1000 >AZ 

600 RETURN >ZB ♦ 





- r*fe-v-i> 








■0*4 


ALLO 
AMSTAR & CPC 








Attention, notez bien ce qui suit : 
Afin de mieux vous servir, tous les mercredis 
de 14 h à 17 h, la rédaction se tient à votre dis- 
position au 99 52 98 11 pour tous renseignements 
techniques. En dehors de ce créneau les répon- 
ses techniques se font par courrier (n'oubliez pas 
de mentionner votre adresse et joignez un tim- 
bre pour la réponse) ou bien par Minitel sur le 
3615 code : MHZ. 
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PROG 



Marc GIANETTI 



Valable pour CPC 6128 



Ce programme d'aide à la 

programmation m'a donné 

entière satisfaction pendant un 

an. Il a été inspiré du 

programme "TURBO 

CLAVIER", de Christian 

KEHREN, paru dans CPC HS 

n° 9 et, de quelques idées 

données par des camarades 

professionnels. 

Une page de présentation étant su- 
perflue puisqu'il s'efface des son 
utilisation, PROG comprend quatre par- 
ties: 

1- Buffcr définissant le nombre de 
caractères des touches reprogrammées. 

2- Choix des couleurs, pour un 
meilleur confort visuel. 

3- Suppression des blancs BASIC. 

4- Redéfinition des touches. 

La partie la plus intéressante est le 
buffer permettant la redéfinition en 
nombre pratiquement illimité de carac- 
tères pour la reprogrammation des lou- 
ches. Vous savez que le CPC est limité 
à 127 caractères. Ce petit programme 
(ligne 20 à 140) permet d'en choisir le 
nombre désiré (ligne 20). Mais attention, 
par précaution, ne descendez pas en des- 
sous de 300, il devient capricieux. 

La 2ème partie n'appelant pas de 
commentaires particuliers, attardons nous 
sur la 3ème qui permet la suppression des 
blancs du BASIC grâce au poke de la ligne 
270. Celte instruction, qui peut être uti- 
lisée en mode direct, est très précieuse 
pour économiser de la place mémoire. 
Elle m'a fait gagner jusqu'à 15 % sur des 
programmes paru dans des revues. Bien 
entendu, elle ne supprime pas les espa- 
ces des chaînes de caractères. D'autre part, 
il vaut mieux ne pas l'utiliser pour la saisie 
de listings sur lesquels on veut vérifier 




H El El El 

im rm \m ^m 



les codes de contrôle puisque ce genre 
de programme ne tient pas compte des 
blancs BASIC. 

La dernière partie (ligne 280 à 590) 
permet, à l'idée de chacun, de redéfinir 
des touches. Pour ma part, je n'ai pas 
reprogrammé KE Y 140 car c'est le RUN", 
et, je n'ai pas touché aux touches I, G, 
H, J, K, X qui correspondent aux codes 
de contrôle principaux. Mais il faut sa- 
voir, que, toutes les touches étani repro- 
grammées on ne peut pas lancer un pro- 
gramme qui aurait lui aussi des touches 
reprogrammées sans avoir fait un RESET. 
Il faut donc penser 5 la sauvegarde avant 
tout essai. 

PROG ne prend presque aucune place 
en mémoire à l'utilisation, et permet par 
sa facilité d'emploi : 

- de gagner du temps dans la program- 
mation, même à la conception, 

- d'éviter bien des erreurs pendant 
la frappe des listings, 

- de donner, sans soucis, le minimum 
de place mémoire aux programmes. 



Pour ma part, j'utilise PROG avec de 
petites étiquettes adhésives que je colle 
sur la face avant des touches reprogram- 
mées, et toutes mes instructions s'écri- 
vent en minuscules pour faciliter le con- 
trôle après avoir listé un programme. 

PROG pourrait être amélioré avec un 
buffcr augmentant le nombre de touches 
à reprogrammer. Je remercie par avance 
celui ou celle qui posséderai ou trouve- 
rai un tel programme cl qui nous le fe- 
rais savoir. En attendant je souhaite à tous 
du bon travail avec PROG. 




& 



H H H PI 



30 b=30O:' taille du buffer iinl=300 caractères >BD 

40 ^HIKEM-10-b >GH 

50 MEMORY « >CF 

60 POKE i*l,17 >PH 

70 POKE «*2,(«*10-2S6HNT(()HiO)/2S6)> >EI 

80 POKE x*3,(INT(»*10)/2S6) >VG 

90 POKE i*4,33 >QB 

100 POKE x*5,lb-256t|NT(b/2S6>> >YP 

110 POKE x»6,INT(b/2S6) >RE 

120 POKE »*7,195 >EC 

130 POKE x*8,21 >W 

140 POKE 1*9,187 . >EH 

150 CALL «*1 >TK 

160 MODE 2:S=26:P=1:INK 1,S:INK 0,P:BORDER P >MD 

170 CLS:L0CATE 20,1:PRINT CHR»(24);" QUEL ECRAN VOULEZ- >GD 
VOUS UTILISER : *;CHR» (24) : LOCATE 30,6:PRIKT CHRK24);" 
•N! ";CHR$(24)i* -NOIR" 
180 LOCATE 30,9:PRINT CHR*<24);" *B! ";CHR»(24I;" - BU >HN 



CPC: 



HORS-SERIE 22 



«ss. 



aise cpc 

HS22 



Nom: 

Adresse : 
Code postal : 
Dale: 



□ 140 F non abonné 
□ 110 F abonné 



Prénom : 



Vils: 



Signature 



y 

A 



Merci à'écrirê on majuscules Cr-joint un chaque libellé à l'ordre des Editions SORACOM. Re- 
tourné: le coupon ou une photocopié i : Edition» SORACOM - La Hêiê do Pan -35170 BRUZ 



NCVLOCATE 30,12:PRINT CHRK24);" "OS ";CHR*(24);" - OR 

ANGEVLOCATE 30,15:PRINT CHRK24);" *V! ";CHR*<24>;" - 

VERT" 

190 LOCATE 30,19:PRINT CHR»(24);* "returnS *;CHR*(24);" >HF 

- FIN " 
200 CALL &BB18:IF INKEY(46)<>-1 THEN BORDER 0: IKK 0,0:1 >RZ 
NK 1,23: GOTO 200 

210 IF INKEY(S4K>-1 THEN BORDER 13:INK 0, 13: INK 1,0:G0 >DE 
TO 200 
220 IF INKEY(5S>0-1 THEN BORDER 9: INK 0,9: INK 1,0:G0T0 >BE 

200 

230 IF INKEY(34K>-1 THEN BORDER O.-INK 0,0: INK 1,15:G0T >CX 
200 

240 IF INKEY(62)<>-1 THEN 200 >UE 
250 IF INKEYU8IO-1 THEN SOUND l,5O,2O:S0UND 1,150,20: >AD 
SOUND 1,80,30:GOTO 270 

260 PRINT CHR$(7):G0T0 160 >UK 

270 CLS:LOCATE 10, 10 : PR 1 NT"SUPRESS I ON DES BLANCS BASIC >VB 
(Oui/Non)" 

280 CAIX 4BB18:IF INKEY(34)<>-1 THEN CLS:G0T0 630 >RH 

290 CLS >UF 

300 KEY i2B f *ctt*«CH*(13) >«. 

310 KEY 129, ■•dit " >NN 

320 KEY 130,'inkey" >PV 

330 KEY 131,"save"*CHR$(34) >«C 

340 KEY 132,"load"*CHR«(34) >WN 

350 KEY 133,"ierge"*CHR»<34> >XJ 

360 KEY 134, Venu» ■ >QJ 

370 KEY 135, "auto " >PD 

380 KEY 136,"input"*CHR$l34)*CHR»(34)*"," >JU 

390 KEY 137,"list " >PL 

400 KEY 138,"delete ■ >RE 

402 KEY 139,"locate " >RN 

410 KEY DEF 67,1,113,81, 141:KEY Ul t *cfcrl(*l'Q >KW 

420 KEY DEF 59, 1, 119,87, 142:KEY 142,'whlle "«•■ >NC 

430 KEY DEF 58, 1, 101,69, 143:KEY 143,"for i=0 to ":'E >UH 

440 KEY DEF 50, 1,114,82, 144:KEY 144,'read ":'R >LM 

450 KEY DEF 51, 1, 116,84, 145:KEY 145,"return":'T >PA 

460 KEY DEF 43, 1,121,89, 146:KEY 146,"|oto ":'Y >LR 

470 KEY DEF 42,1, 117,85, 147:KEY 147, "Hindou ":'U >PK 

480 KEY DEF 34, 1,111,79, 14fl:KEY 148, "pen ":'0 >KD 

490 KEY DEF 27,1,112,80, 149:KEY 149,'paper ":'P >ND 

500 KEY DEF 69,1,97,65, 150:KEY 150,"cls":'A >HL 

510 KEY DEF 60,1, 115, B3,151:KEY 151,'josub ":'S >HB 

520 KEY DEF 61, 1,100,68, 152:KEY 152, "data ":'D >LB 

530 KEY DEF 53,1,102,70, 153:KEY 153, "plot VF >LF 

540 KEY DEF 36,1,108,76, 154:KEY 154, "ink ":'L >JG 

550 KEY DEF 71,1, 122,90, 155:KEY 155,"sound ":'Z >NN 

560 KEY DEF 62, 1,99,67, 156:KEY 156, "cal 1 t":'C >LQ 

570 KEY DEF 55,1,118,86, 157:KEY 157,*«end": , V >KU 

580 KEY DEF 54,1,98,66, 158:KEY 158,"draw ":'B >KK 

590 KEY DEF 46, 1,110,78, 159:KEY 159, "neuf: 'N >LC 

620 DELETE 10- >NK 

630 ' supression des blancs basic >RK 

640 POKE &AC00.255 >LN 

650 GOTO 290 >ZJ 

660 END >TF^ 




ION STOP 
aux Ch««P* Blysées 
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MICROMANIA au FORUM DES HALLES 
LE PLUS GRAND MAGASIN D'EUROPE 

spécialisé en logiciels de jeux. 

1 35 m 2 de JEUX pour AMSTRAD, ATARI ST, 

AMIGA, SEGA, PC COMPATIBLES, 

Thomson... 

NOUVEAU 

Un super rayon de consoles de jeux: 
PC Engine de NEC, LYNX de Atari, 
GAMEBOY de Nintendo, 
de MEGADRIVE de Sega. 

FORUM DES HALLES 

5, rue Pirouette et 4, Passage de la Réale 

Niveau — 2 

Métro et RER Les Halles 

Tél. 45.08.15.78 




PRINTEMPS HAUSSMANN 

64, bd Haussmann 
Espace Loisirs sous-sol 
75008 Paris 
Métro Havre-Caumartin 
Tél. 42.82.58.36 

PRINTEMPS NATION 

2125, Cours de Vincennes - 4" Etage 
75020 PARIS 
Métro RER Nation 
Tél. 43 71 12 41 



MICROMANIA OUVRE UN NOUVEAU 
MAGASIN AUX CHAMPS ELYSEES 

où vous trouverez tous les derniers logiciels 
pour Atari ST, Amiga, PC, Amstrad, 
et tous les derniers jeux pour consoles : 
GAMEBOY de Nintendo, LYNX de Atari, 
PC Engine de NEC, MEGADRIVE de Sega. 

Pour fêter l'ouverture, 
MICROMANIA offre des cadeaux 
déments à tous les clients du 
magasin jusqu'au 30 Juin. 

MICROMANIA CHAMPS ELYSEES 

GALERIE DES CHAMPS (Galerie Basse) 

84, avenue des Champs Elysées 
Métro Georges V 
RER Charles de Gaulle-Etoile 
Tél. 42.56.04.13 



CENTRE COMMERCIAL 
VELIZY 2 

PRINTEMPS VELIZY 

Niveau 1, Rayon Musique-Micro^ 

Tél. 34 65 32 91 

CENTRE COMMERCIAL 
VALENTINE 

MAGASIN PRINTEMPS 
13011 Marseille 
Tél. 91.44.00.66 





rMAMJM? 




99 F 



LA MANETTE 
QUICKJOY 3 
SUPERCHARGER 



LA MANETTE 

KONIX 

SPEEDKING 




10 DISQUETTES 3 1/2 DF DD 
GARANTIES A VIE 99 F 



10 DISQUETTES 

AMSTRAD 



195 F 




AMSTRAD 464-6 128 



LES 






D'ABOR 
CHEZ MICROMANIA ! 



^ÔÎSWCRÔMÂNiÂ 



DES COMPILATIONS GEANTES 



1 2 JEUX FANTASTIQUES 
149/199F 

+ STORMLORD (orcode] 
+ SUPER SCRAMBBLE (moto) 
+ SKATE CRAZY (sim. skate) 
+ NIGHTRAIDER(sim.vol) 
+ ARTURA (avent./oction) 
+ DARK FUSION (orcode) 



+ GARY UNEKER HOT SHOT (foot) 
+ ARCADE FOOT BALL (foot) 
+ TECH NOCOP (arcade) 
+ MOTOR MASSACRE (arcade) 
+ MARAUDER (shoot'emup) 
+ H.A.T.E. (shoot'emup) 



LA COLLECTION 
175/245 F 

LES 1 5 LOGICIELS QU'IL FAUT ABSOLUMENT AVOIR 

+ CAULDRON (arcade action) 
+ THE GREAT ESCAPE (action) 
+ YIE AR KUNG FU (karaté) 
+ MAG MAX (arcade espace) 
+ TOPGUN'sim.devoll 
+ GALVAN (jeu d'arcade) 
+ SORCERY (jeu d'aventure) 



+ ARKANOID (Casse-brique) 

+ BATMAN (jeu d'action) 

+ RAMBO (combat guerrier) 

+ GREEN BERET (combattant) 

+ CRAZY CARS (simulation auto) 

+ MATCH DAY (sim. de football) 

+ MATCH POINT (sim. de tennis) 

+ KON AMIS GOLF sim. de golf) 




SUPER PROMOTION 
MANETTES ET CABLES 

Manette US GOLD 109 F 

(plus une montre digitale GRATUITE) 
Monene NAVIGATOR 
Megablaster à Microswitches 



14? F 
79 F 
129 F 
129 F 
85 F 
59 F 
69 F 
79 F 
99 F 



PRO 5000 
CHEETAH MACH1 
CHEETAH 125 + 
QUICKJOY JUNIOR 
QUICKJOY JUNIOR STICK 
QUICKJOY 2 PIIOT 
QUICKJOY TURBO 
QUICKJOY VI JET FIGHTER 149 F 
QUICKJOY V SUPERBOARD199 F 
QUICKJOY INFRA ROUGE 399 F 
QUICKJOY M5 PC COMP 199 F 
CORDON pour branchement 
de deux manettes 49 F 

Câble Magnéto AMST. 49 F 

Câble d'extension pour Joystick 49 F 
Câble de TELECHARGEMENT 49 F 
HOUSSE DE PROTECTION 
Housse CPC 464 COUL 89 F 

Housse CPC 464 MONO 89 F 

Housse CPC 6128 COUL 89 F 

Housse CPC 6128 MONO 89 F 
DISQUETTES VIERGES 
4 Cassettes vierges 29 F 

4 Disquettes vierges 99 F 

10 Disquettes vierges 195 F 



LES AVENTURIERS 
149/199 F 

+ INDIANA JONES ACTION 
+ THE STRIDER f^r^SS^ 
+ VIGILANTE l** ' ' 
+ FORGOTTEN WORLDS 



DRIVERS 
149/199 F 

+ CHICAGO 90 
HIGHWAY PATROL 

+ QUAD 
- GRAND PRIX 500 



LES FANATIQUES 
ND/249F 

+ FIRE AND FORGET 

+ L'ARCHE DU 

CAPITAINE BLOOD 

+ SUPER SKI 

+ TITAN 

+ GRAND PRIX 500 

+ CRAFTON ET XUNK 



DOUBLE ACTION 
149/199F 

+ DOUBLE DRAGON 

+ WEC LE MANS 

+ REAL GHOSBUSTERS 

+ DALEY THOMPSON OLYM. 



OFFRE SPECIALE 

POUR FETER L'OUVERTURE 

DU MAGASIN MICROMANIA CHAMPS ELYSEES 

(Valable dans tous les magasins Micromania 

et en vente par correspondance jusqu'au 30 juin) 



CABAL 59/99 F 
OPERATION 

THUNDERBOLT 59/99 F 

LES INCORRUPTIBLES 59/99 F 

STRIDER 59/99 F 

FORGOTTEN WORLDS 59/99 F 



COMPILATIONS 

LES BEST DE US GOLD99/149 F 
EPYX ACTION ND/99 F 

LA COMPIL OCEAN 59/99 F 
HE AT WAVE 59/99 F 

JOYSTICK THUNDER 59/99 F 



COMPILATION 1 
99/149 F 

+ SILKWORM 

+ DOUBLE DRAGON 

+ XENON 

+ GEMINI WING 



OFFRE SPECIALE 
99/149 F 

• OPERATION THUNDERBOLT 
r LES INCORRUPTIBLES 



LES BARBARES 

149/199 F 

+ BARBARIAN 2 

+ RENEGADE 3 

+ DOUBLE DETENTE 

+ GUERILLA WAR 



LES 100% A D'OR 
149/199F 

Les 4 meilleurs scores 
de Amstrad 100% 

+ OPERATION WOLF 

+ AFTERBURNER 

+ RTYPE- + TITAN 

+ 1 autocollant inédit 

+ 1 super poster de Miss X 



COMPILATIONS 



LES VAINQUEURS 149 199F 

+ï-'orgotlen Worlds 

+Thundernlade 

+Tiger Road 

+Lasl Duel 

+Blasteroids 

LES MAITRES NINJ AS 1 29/1 79F 

+Douhle Dragon 

+ Lasl Ninja 2 

EPYX 21 CHALENGE 

OLYMPIQUE 149/199F 

I 10 métrés Haies, laneer du 
maneau.saul à la perche, barres 
.iss\ métriques, cyclisme sur piste. 
plongeon, tir à l'arc, anneaux, 
plongeon île haut vol... 
LES JUSTICIERS 145/1 95F 

LES 3 MEILLEURS JEUX 
DE COMBAT DE CHEZ CXT.AN! 
+Dragon Ninja 
+Robocop 
+Rambo 3 



12 JEUX EXCEPTIONNELS 129/149F 

+Cybcrnoïd 

+Deflektor 

+Mask +BI(xxi Brothers 

+Nebulus +Hercules 

+Northstar +Exolon 

+Les Maîtres de l'Univers 

+Venom Strikes Back 

+Maraudcr + Ranarama 

OCEAN DYNAMITE 149/1 99F 

+Platoon 

+Predator+Kamov 

+Crazy Cars+Combat School 

+Gryzor+Salamander+Dri 1 1er 

+Riillinj! Thunder 

GAME SET MATCH 2 149/1 99F 

+Match Day 2 

+ Basket Master 

+Super Hang On 

♦ Champion Chip Sprint 

+Track and Fielcl 

+Cricket+Snooker+Golf 



AMSTRAD 464-6 128 



Non stop a 



HîçromSnïSj 



innEE 



NOUVEAUTES 

A NE PAS 
MANQUER* 



BLOODWYCH 
BOMBER 
DYNASTY WARS 
FIRE AND FORGET 2 
HOSTAGES 
INTERNAT. 3D TENNIS 
KLAX 

SECRET AGENT 
SHADOW WARRIORS 
SIM CITY 



149 199F 

149 199F 

109149F 

139179F 

169 229F 

99.149F 

99149F 

99/1 49F 

99T49F 

ND199F 



HIT PARADE 


BLACK TIGER 


99149F 


CABAL 


99T49F 


CHASE HO 


99/149F 


CRACKDOWN 


109149F 


CYBERBALL 


99149F 


DOUBLE DRAGON 2 


99149F 


E-MOTION 


109149F 


HARRICANA 


149,199F 


HEAVY METAL 


99.149F 


ITALY90 


129-1 79F 


NINJA WARRIORS 


99/1 49F 


OCEAN BEACH VOLLEY 


99149F 


RAINBOW ISLAND 


99/149F 


TENNIS CUP 


169199F 



à paraître 



AUTRES 




NOUVEAUTES* 


BOMBUZAL 


WI41F 


DARK CENT! RY 


WIW 


K.SCAPF. FROM PI.ANKT 


M U')l 


PLAYER MANAGER 


I.WI79F 


PINBALL SIMULATOR 


ND/2WF 


poim p 


ND/TS9P 


SCRAMBBLE SPIRITS 


99/ 149F 


5PHERJCAL 


99/ 149F 


STORMLORD 2 


99/ 149F 


THE CYCLES 


99/1 <i9H 


TLRRICAN 


99 149K 


VENDETTA 


99/149F 


W()RLDCIPS<K(ER90 


99/ 149F 



DE ©ARANAE 
SUR TOUS 

usioeic'» 5 



( Ml i K VI \cihK AFT 


95/145F 


DAN DARI- ! 


99/ 149F 


DRAGON SPIRIT 


99/ 149F 


EAOLESRIDIK 


ND/199F 


FOOTBALLER OF YEAR 2 


99/1491-' 


GHOSBISÏI ks ! 


Il 9/ 119F 


OHOULS'NCHOSTS 


99/I49F 


HAMMERFIST 


99/I49F 


MOT ROD 


99/ 149F 


IMPOSSAMOLE 


99/ 149F 


INDIANA JONES 


99/ 149F 


KICK OU 


IW/ 1 791- 


LF.S INCORRUPTIBLES 


W/I49F 


LE MANOIR DE MORT 


ND/I99F 


I.OAD Rl.NNER 


149/ 199F 


MEURTRES AVENISE 


ND/19SF 


MYTH 


1 29/1 49F 


NEW ZEALAND STORY 


99/ 149F 


NINJA SPIRITS 


99/ 149F 


OPERAT THUNDERBOI.T 


99/149F 


P47 


129/ 179F 


PINBALL MAGIC 


149/ 199F 


PIPEMANIA 


139/ 179F 


SCRABBLE DE 1 l XI 


ND/225F 


SHINOBI 


99/ 149F 


SP1DERMAN 


139/1 79F 


TEENAGEQUEEN 


I69/229F 


THE STRIDER 


99/ 149F 


TURBO OUT RUN 


99/I49F 


TUSKEK 


99/ 149F 


VIGILANTE 


99/ 149F 


WILD STREETS 


139/1791- 


X-OUT 


99/ 149F 



vos jeux 



ême le dimanche ! 



2 SUPERS HITS SUR UNE DISQUETTE 
POUR 99 F SEULEMENT 

Les meilleurs titres jamais développés sur Amstrad CPC 
réédités dans une collection exceptionnelle. 



N°l Arkanoid 1 

+ Arkanoid 2 
(Casse Brique) 




N'II 


Bubble Bobble 
+ Flying Sharlc 

(Arcade) 










N°2 GauntUt 1 

+ Gauntlet 2 
(Labyrinthe) 




N°12 


Ace of Aces 
+ Infiltrator 

(Sim. de vol) 










N°3 Out Run 

+ Road Blaster 

(Course auto) 




N°.3 


Renegade 
Target Renegade 
(Combat de rue) 










N°4 Enduro Racer 

-F Super Hong On 
(Course moto) 




N°14 


Top Gun 
+ Slap Fight 
(Arcade) 










N°5 International Karaté + 
+ Yie Ar Kung Fu 

(Karaté) 




N°15 


Rolling Thundor 
+ Rygar 

(Arcade) 










N°6 Grysor 

-t-Green Béret 

(Combat) 




N°16 


Daley Thompson 
-F Super Test 
(Sport) 










N°7 California Games 
+ Winter Games 

(Sim. de sport) 




N°17 


Matchday 2 (foot) 
+ Basket Master 
(Foot-Basket) 










N*8 Street Fighter 
+ Tiger Road 
(Combat de rue) 




N°18 


Wonderboy 

+ Wizzboll 
(Arcade) 










N°9 Platoon 

+ Predator 

(Action) 




N-.9 


Quartet 
+ Rampage 
(Arcade) 










N°10 Crazy Cars 

-F Supersprint 

(Course auto) 




N°20 


Hypersports 
+ Track'n Field 
(Sport) 



LES POINTS MICROCLUB : Vous les trouverez sur les 
boîtes des jeux. En les collectionnant, vous pourrez obtenir 
gratuitement les cadeaux exclusifs du MICROCLUB. 

Votre jeu chez vous dans 48 h* en téléphonant au 93.42.57.12. / NOUVEAU - Livraison garantie par Colissimo 

• Envoi lejaur wim» de la ricmlion de la œmi7iande_Darj>a^uel_poitt_iiraenl_ (ATTCNTION^depuis^aniaimposarl»^ ™'?2^}JJ^}Q , ni > ~ vl 

" BON deYOMMANDE EXPRESSTenvoyer à MICROMANIA ■ B.P. 3 - 06740 CHATEAUNEUF 

NOM 

ADRESSE : 



c " TITRES 


PRIX 


















Participation aux frais de port et d'emballage 


+ 18 F 


Précisez cassette □ Disk □ Total à payer = 


F 



Coae postal . 



TH. 



PAYEZ PAR CARTE BLEUE I INTERBANCAIRE 



I I I 



I I I 



I I I 



Date d'expiration — I — Signature : 



□ T.Shirt PLAY AGAIN 

M. L. XL (entourez votre taille) 

: T.Shirt HIGH SCORE 

M. L. XL. (.mourez votre loill.) 

I ] Montre MICROMANIA 



Reniement je tocni □ on chèque bancaire D CCP D mandat-lettre D ie prélèce payer au fadeur à réception [en ajoutant 19 F) pour fraii de remboursement . N' de Membre |racuhalrl) L__L 

1 ' ....... ?...... A _»... ...... ... ...... ......... .i. ...rrn.n.nn rrri nr un ATADICT Ai.ir. MtT I V M L- r^AAACBAV AA ET. A nD IVI 



ENTOUREZ VOTRE ORDINATEUR DE JEUX : AMSTRAD 464 AMSTRAD 6128 . SEGA . PC 1512 ATARI-ST . AMIGA . NEC LYNK GAMEBOY MEGADRIVE 
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Jean-Marc VINCENT 



Valable pour CPC 
464-6128 
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Voici un petit programme qui 

va faciliter la vie de beaucoup 

de lecteurs. 

En effet, nombre de 

programmes publiés dans nos 

pages sont très intéressants 

mais leur utilisation nécessite 

des heures de travail 

ininterrompus devant votre 

CPC pour saisir les dizaines de 

pages de DATA s. 



Ce programme vous permet main- 
tenant de charger les lignes de 
DATAs clans un fichier ASCII et de s'ar- 
rêter à tout moment. Ainsi le fichier de 
DATAs original pourra être reconstitué 
en utilisant les commandes LOAD pour 
le premier fichier, MERGE pour les sui- 
vants et enfin SAVE pour le sauvegar- 
der. 



FONCTIONNEMENT 
DU PROGRAMME : 

- Le programme demande sur quel 
support (cassette ou disquette) doit se trou- 
ver le fichier. 

- S'il s'agit de la cassette, le pro- 
gramme demande s'il est besoin d'ini- 
tialiscr les commandes cassette (TAPE : 
dans le cas d'un 464 avec DDI-1 ou 6128 
avec cassette). 

- S'il s'agit de la disquette, le pro- 
gramme affiche la liste de tous les fichiers 
de type ASCII (*.asc). 

- Le programme demande ensuite le 
nom du fichier en sortie. 

- Ensuite on demande le numéro de 
ligne de départ et l'incrément pour les 
lignes suivantes. 

- Puis le nombre de DATAs par li- 
gne. 

- Ensuite si le signe "&" est utilisé 
ou non. 



- Le programme demande alors la lon- 
gueur de la chaîne somme. Si RETURN 
pas de somme en fin de ligne sinon le 
programme propose le choix de la for- 
mule de calcul pour cette somme. (II est 
d'ailleurs possible d'en ajouter facilement 
de nouvelles, c.f lignes 2350 à 2470). 

- El si celte somme doit être réinitia- 
lisée à chaque ligne. 

- On peut alors entrer les DATAs. Il 
faut laper RETURN après chaque DATA. 
La touche DEL peut être utilisée en cas 
d'erreur. 

- A la fin de la ligne, si besoin est, 
on entre la somme de contrôle (le pro- 
gramme l'ayant calculé lui-même tout au 
long de la ligne). Ici aussi on peut utili- 
ser la louche DEL. 

- Si il y a erreur sur la somme le pro- 
gramme propose de recommencer en ef- 
façant la ligne ou de corriger en passant 
sur chaque DATA ainsi que sur la somme. 

- Si la somme est correcte le pro- 
gramme propose de continuer ou de ter- 
miner. 



10 



1800 

îaiB 

1820 
1830 
1040 
1050 
1860 
1070 
1080 
1090 
1100 
1110 
1120 
1130 

M i 

1140 



iMiiiMimëiëiMiiiimiMi 
■ffWlwwwlWwWwwwwWinR 

t I 

I Chargement de DATAs t 

• CPC 464/664/6128 t 
I a + | 

• ! Version 1.0.1 ! • 
t t 

IIIIIMIMIMIMIMIIIMIM i» m 
WWfwWWwwWtTriWw If" 

(c) J-M. VINCENT Février 1990 



>ID 

>XE 
>XF 

>XG 
>XH 
>XJ 
>XK 
>YA 
>YB 
>YC 
>XE 
>XF 
>XG 



' Toutes les lignes commentées peuvent être efface >XH 

tous les points 

' d'entrée pour EOTO ou SOSUB ne sont pas des lign >XJ 
es coiaentees. 
1150 ' 



Liste des variables 



Alphabétiques 



1161 

1170 

1180 

1190 

1200 

1210 

1220 

1230 ' ===== 

1240 ' 

1250 ' inpvilt 

1260 ' valinp* 

i partir de inpvalt 

1270 ' support» 

isquette 

1280 ' file* 

1290 ' 

1300 

1310 

1320 

1330 

1340 

1350 

1360 



carat ère lu par INKEY$ 
chaîne de caractères coaposee 



>XK 
>¥A 
>YB 
>YC 
>YD 
>XF 
>XG 
>XH 
>XJ 
>XK 
>YA 
>YB 



nom du support : cassette ou d >YC 



noa du fichier en sortie 



Numériques entières 



caï : fenêtre de sortie écran 

leninpX s longueur d'une chaine a lire 

nlX ; nuaero de ligne de départ 

incX : incrément des nutcros de ligne 



>YD 
>YE 
>XG 
>XH 
>XJ 
>XK 
>YA 
>YB 
>YC 



: nombre de DATAs par ligne >YD 
: longueur de la chaine sua a li >YE 



1370 ' ndatlX 

1380 ' lsuaX 

re 

1390 ' posxlX / posylX s position du curseur en début d >YF 

e chaque ligne 

1400 ' posxdX / posydX : position du curseur au début d >XH 

e chaque DATA par ligne 

1410 ' iX i utilise par les boucles FOR >XJ 

1420 ' >XK 

1430 ' Numériques réelles >YA 

1440 ' =.===*« >YB 

1450 ' >YC 

1460 ' valdatl) i tableau de DATAs pour une lign >YD 



1470 ' savsum 



i sauvegarde de la somme cumulée >YE 



cour 


mte si erreur 




1480 


sua 


: somme calculée (et cumulée) po >YF 


ur la 


ligne courante 




1490 


val sua 


s somme lue pour la ligne couran >YG 


ta 






1500 


ERR 


s nuaero d'erreur >XJ 


1510 


ERL 


: ligne en erreur >XK 


1520 


* 


>YA 


1530 


' Flags 


>YB 


1540 


===== 


>YC 


1550 




>YD 



i 1 si 't' utilise sinon >YE 

: 1 si sua a zéro en début de ch >YF 



1560 ' aapX 

1570 ' csuaX 

aque ligne sinon 

1580 ' correct* : 1 si correction de la ligne DA >YG 

TA courante sinon 

1590 ' inpsuaX : 1 si entrée de la somme de con >YH 

trole sinon 

1600 ' >XK 

1610 ' Fonction >YA 

1620 ' *== >YB 

1630 ' >YC 

1640 ' FN sua : définit la foraule de calcul p >YD 

our sua 

1650 ' >YE 

1660 ' Début du prograaae >YF 

1670 ' >Y6 

1688 ' >YH 



ANCIENS NUMEROS 




Hfifif 



r» HORS-SERIE 

j Q n° 4, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16 15 F 

j □ 17, 18, 19, 20, 21 17F 

I • DISQUETTES HORS-SERIE 

| oHS 1, 2, 3,4,5,6,7,8,9, 10, 11, 12 

| 13, 14, 15, 16, 17, 18, 19, 20, 21 140 F 

■ Chaqus disquatt» comporta tous las programma» du n hors-séris cor 
raspondant. Las abonné» à CPC bénéficiant du tarit unltalra da 110 F 

| pour las dlsquattas. 

I Nom : Prénom : 

■ Adresse : 

" Code postal : 

J Date : 

I Entourei lois) numirxHs) choisit. 

Merci décrire en majuscules. Ci-joint un chique libellé à l'ordre des Editions SORACOM. Re- 
tournez le coupon ou une photocopie à : Editions SORACOU - Le Hâte de Pan - 351 70 BRUZ 



Ville 



Signature 



1 1 



1698 KEY DEF 66,2, a,0,a:POKE tcBDEE,tiC9 ' Annule BREAK Si >DU 
CTRL+SHIFT+ESC 

1700 MODE 2: ON BREAK 60SUB 3180! ON ERROR 60T0 3230 >TA 

1710 ' >YB 

1720 ' Initialisation des variables pour le chargement >YC 
des DATAs 
1730 ' >YD 

1740 ' >YE 

1750 HINDOU ll,l,80,l,24:CLS *l:WINDON »2,1, 80,25, 25:CL >BL 

S 12 

1760 PRINT ll,CHR$(24);SPACE*( 14); "Utilitaire de charge >CT 

ment de datas dans un programme. a ;SPACE*U4);CHR*(24>; 

1770 PRINT 12, "Cassette ou Disquette (C/D) ? ";ChR*(24> >LF 

;" ";CHR*(24)jCHF»<8>; 

1780 inpval$="":WILE inpval$="":inpvâl*=UPPER$(INK£YS) >UE 

: «END: CLS »2 

1790 IF inpval*="C" THEN support$="cassette":80T0 1820 >CC 

1880 IF inpval*<>"D" THEN PRINT CHR*(7);:60T0 1770 >TU 

1810 supportS="disquette" >ZY 

1820 CLS 42: PRINT #2, "Appuyer sur n importe quelle touc >NH 

he lorsque vous aurez insérer une "; supports; 

1830 inpval$="":WHILE inpval$*""iinpval$=UPPER*(INKEY»> MJA 

!NEND:aS 12 

1840 IF supportS-"disquette" THEN :DIR,"*.asc":B0T0 189 >6M 



1850 as 12: PRINT 12,'Avez-vous besoin d 'initial iser le >UK 

s coMandes cassette CTAPE) (0/N) ? ";:SOSUB 2850 

1860 IF inpval*="Q" THEN ITAPE >YR 

1870 CLS t2:PRINT 12, "Press REC and PLAY then any key: >BX 

";CHR$(24); a ";CHRS(24);CHRS(8); 

1880 inpval$=""iWHILE inpval*=""sinpval$=UPPER*(INKEY$) >UF 

:NEND:aS «2 

1890 INPUT 12, "Quel fichier voulez-vous créer (le type HIC 

'.asc' est implicite) ";file$ 

1900 IF file*="" OR UEN(file$)>B THEN PRINT CHR*(7);:CL >PN 

S t2i60T0 1890 

1910 CLS t2:PRINT «2, "A quel nunero de ligne voulez-vou >ED 

s commencer ? " ; :caï=2: leninpX=5: SOSUB 2940 

1920 nlX=VAL(valmp$) >QR 

1930 CLS I2:PRINT 12, 'Quel incrément voulez-vous utilis >NB 

tr ? 's:caX=2:leninpX=5:S0SUB 2940 

1940 incX-VAL(valinp$) >RD 

1950 CLS #2: INPUT «2, "Nombre de datas par ligne "jndatl >KF 

X 

1960 IF ndatlX=0 THEN PRINT CHR$(7);:60T0 1950 >M1 

1970 CLS KiPRINT #2," Utilisez -vous le signe '*' pour l >DK 

es datas (0/N) ? ";CHRS(24);" ";CHRS(24);CHRS(8);:G0SUB 

2850 

1980 IF inpval*="0" THEN ampX=l ELSE ampX=0 >KM 

1990 CLS 12: INPUT #2, "Longueur de la chaîne 'sonne' en >RE 
fin de ligne "jlsuaX 

2000 IF lsuiXOt THEN 60SUB 2390:CLS #2:PRINT «/Doit- >BW 
on remettre a zéro la chaine 'somme' au début de chaque 

ligne (0/N) ? ";CHR$(24)|" ";CHR$(24);CHR$(8);:S0SUB 2 
850! IF inpval*="0" THEN csumX=l ELSE csuml=0 
2010 ' >XF 

2020 ' Ouverture du fichier choisi précédemment >XG 

2830 ' > XH 



2040 ' 


>XJ 


2050 CLS IliCLS «2 


>LW 


2060 DIH valdat(ndatlX):sum=0 


>YR 


2070 OPENOUT *!"+file*+\asc" 


>YJ 


2080 ' 


>YC 


2090 ' Entrée des DATAs, de la somme et vérification 

91M ' 


>YD 



21 M ' >X6 

2120 correctX=0!SOSUB 2520 >VU 

2130 ' >XJ 

2140 ' Ecriture dans le fichier choisi précédemment >XK 

2150 ' >YA 

2160 ' >YB 
2170 PRINT l9,RIGHTS(STR»lnlX),LEN(STR$(nlX))-l)i" DATA >EU 

■ g 

2180 FOR iX=fl TO ndatlX-1 >RG 

2190 IF MpM THEN PRINT (W.Vj >ZE 

2200 PRINT W,MID$("00",l,2-LEN(HEXI(valdat(iX))))iHEX$ >RF 

(valdatdX)); 

2210 IF iXOndatlZ-1 THEN PRINT #9,","; ELSE IF lsumXO >NZ 

THEN PRINT #9,","; ELSE PRINT H 

2220 NEXT iX m 

2230 IF lsumX=0 THEN 60T0 2300 >XN 

2240 IF a»pX=l THEN PRINT «,'V\ >ZA 

2250 PRINT #9,MID$<STRIN6S(lsumX,"0"),l,LEN(STRIN6*(lsu >«L 

mX,"0"))-LEN(HEX$(valsum)));HEX$(valsum) 

2260 ' >YC 

2270 ' Test pour continuer ou sortir >YD 

2280 ' >YE 

2290 ' >yf 

2300 PRINT I2,CHR$(24))" Appuyer sur <F> pour sortir ou >QH 
une autre touche pour continuer. ";CHRS(24)j 

2310 inpval*="":WHILE inpval$=" , :inpvalS=UPPER$(INKEY$) >KN 
:HEND 

2320 CLS #2:IF inpvalS="F" THEN aOSEOUTiNINDOW 1,80,1, >* 
25îCLS:KEY DEF 66,0 l tfC,iFC,! 1 FC:POKE MDEE,tcC3:L0CATE 1 
,1:PRINT "Vous pouvez charger votre fichier en tapant : 
":PRINTsPRINT "LOAD "iCHR*(34);UPP£F»(file*)î".ASC"iCHR 
$(34):PRINT!END 

2330 nlX=nlX+incX >LX 

2340 60T0 2120 >NB 

2350 ' >YC 

2360 ' Sous-programme du choix de la formule de calcul >YD 
de la somme 

2370 ' >YE 

2380 ' >yf 

2390 CLS »2iPRINT «."Utilisez-vous cette formule de ca >JE 
lcul (0/N) : T0T=T0T+PEEK(AD) ? ";s60SUB 2850: IF inpval 
*="0" THEN DEF FN sum=sum+valdat(iX):RETURN 
2400 CLS I2:PRINT #2, "Utilisez-vous cette formule de ca NU 
lcul (0/N) : S=S+K+65536«(S+K>32767) ? ";:80SUB 2850: IF 

inpval$="0" THEN DEF FN sum=sum+valdat(iX)+65536t(sum+ 
valdat(iX)>32767):RETURN 

2410 CLS I2:PRINT 12, "Utilisez -vous cette formule de ca >ÛY 
lcul (0/N) : som=som+a»j ? ";:60SUB 2850: IF inpval$="0" 

THEN DEF FN sum=sum+valdat(iX)t(iX+l):RETURN 
2420 ' >YA 

2430 ' Formule de calcul suivante >YB 
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244e ' 

2450 ' Dernière formule de calcul 
2468 ' 

2478 PRINT CHR$(7);:Q0T0 2390 
2480 ' 



>YC 
>YD 
>YE 
>XC 

>YG 



2490 ' Sous-programme d'entrée et de vérification des D >YH 

ATAs 

2500 ' >XK 

2510 ' >YA 

2520 inpsuaX=0:IF correcte THEN savsua=sua ELSE suofs >KW 

avsua 

2530 posxlX=POS(#l):posylX=VPOS(*l)iIF csuaX=l THEN sun >DE 

«0 

2540 PRINT H,RI6HT$(STR$(nlZ),LEN(STR$(nlX))-l);" DATA >EL 

■ ■ 

2550 FOR iX=0 TO ndatU-1 >RH 

2560 IF a*pZ=l THEN PRINT ll,"4"i >YF 

2570 posxdX=P0S(il);posydX=vP0S(#l);caX=l:leninpX=2iIF X1K 
correctX=0 THEN 60SUB 2940 ELSE valinp$=HEX$(valdat(iX) 
,lminpX)iPRINT #caX,valinp*;:GQSUB 2950 
2580 valdat(iX)=VAL("l<"+valinp*> >AJ 

2590 IF LEN(valinp*)<=2 THEN LOCATE #l,posxdX,posydX;PR XJP 
INT ll,HEX$(valdat(iX),2); ELSE PRINT CHR$ (7)j: LOCATE t 
l,posxdX,posydX;PRINT *l,SPACE$(LEN(HEX$<valdat(iX),2>) 
))|!L0CATE *l,posxdX,posydX:GOTO 2570 
2600 IF iXOndatlX-1 THEN PRINT il,","; ELSE IF lsuaXO >NB 
THEN PRINT 11/,"; ELSE PRINT «1 

2610 IF lsuaX<>0 THEN suhfFN sua >AV 

2620 NEXT iX >AE 

2630 ' >YD 

2640 ' Entrée de la sonne (si besoin) >YE 

2650 ' >YF 

2660 ' >YG 

2670 inpsu*X=l: IF lsuaX=0 THEN RETURN >GE 

2680 IF aapX=l THEN PRINT *l,'ti"i >ZA 

2690 posxdX=POS<«l):posydX=VPOS<#l):caX==l:leninpX=lsuaX >RL 
:IF correctX=0 THEN 60SUB 2940 ELSE valinp*=HEX$(valsua 
,leninpX);PRINT #caX,valinp*;:GOSUB 2950 
2700 valsua=vAL("i"+valinp$> >XU 

2710 IF LEN(valinp$K=lsuaX THEN LOCATE *l,posxdX,posyd >DD 
XiPRINT tl,HEX$(valsua,lsuaX) ELSE PRINT CHR$(7);:L0CAT 
E tl,posxdX,posydX:PRINT •l l SPACE*(LEN(HEX$(valsua,lsua 
X)));:L0CATE #l,posxdX,posydX:60T0 2690 
2720 ' >YD 

2730 ' Vérification de la soMe (si besoin) >YE 

2740 ' >YF 

2750 ' >Y6 

2760 IF valsua=sua THEN RETURN >AX 

2770 PRINT I2,CHR$(24); H Erreur dans les datas. Appuyer >QR 
sur <R> pour recoaaencer ou <C> pour corriger. ";CHR$( 
24)j:correctX=0 

2780 inpval*="":WHILE inpval$="":inpval$=UPPER*(INKEY») >KH 
iWEND 

2790 IF xnpval*="R" THEN CLS t2:LQCATE H,posxlX,posylX >GX 
iPRINT *1,SPACE$ (80);: LOCATE »l,posxlX,posylX:su»=savsu 
■iGOTO 2520 

2800 IF inpval*="C" THEN correctXMiLQCATE tl.posxlX.po >NX 
sylX:B0T0 2520 ELSE PRINT CHR$(7);:S0T0 2770 



2810 ' >YD 

2820 ' Sous-prograinae d'entrée (oui) / N (non) >YE 

2830 ' >YF 

2840 ' >YG 

2850 PRINT l2,CHR$(24)i" ";CHR»<24) jCHRKS); >LU 

2860 inpval$=UPPER$(INKEY$):IF inpval$="" THEN 2860 >NK 
2870 IF inpvaUO'O" AND inpval»<>"N" THEN PRINT CHR$(7 >NZ 
);:60TO 2860 

2880 PRINT l2,inpval$jCHR*(24)i' a ;CHR$(24) ;CHR$(8) ; >MR 

2890 RETURN >GC 

2900 ' >YD 
2910 ' Sous-programae d'entrée de caractères hexadeciaa >YE 
ux et de contrôle 



2930 ' 

2940 valinp$="" 

2950 inpval$="" 

2960 NHILE inpval$OCHR$<13) 



>YG 

;CF 
>CG 

m 



2970 IF correctX=0 THEN PRINT #caX,CHR»(24) j" "jCHR$(24 >BB 

); 

2980 IF correctX=l AND inpsuaX=0 THEN PRINT *caX,CHR$<2 >UY 

4)i","jCHR*(24); 

2990 IF correctX=l AND inpsuaX=l THEN PRINT #caX,CHR$(2 XJM 

4);" "{CHR$<24); 

3000 inpval$=UPPEF»(INKEYS):IF inpval$="" THEN 3000 X*3 

3010 IF ASC(inpval$)=8 THEN 3000 ' Touche BREAK >ZA 

3020 IF inpval$=CHR$U3> THEN 3100 ' Touche RETURN Xf> 

3030 IF inpval*<>CHR$(127) THEN 3070 ' Touche DEL >CC 

3040 IF LEN(valinp$)=8 THEN PRINT CHR$(7) }: inpval$=*":G >KH 

0T0 3000 

3050 valinp*=MD*(valinp$,l,LEN(vahnp*)-l) >NJ 

3060 PRINT •caX,CHR»(8);CHR$(8)i" ";CHR*(8);CHR$(8);ii )ZA 

npval»="";GOT0 2970 

3070 IF LEN(valinp$)=leninpX THEN PRINT CHR$(7) jiinpval XJF 

*="":60T0 3000 

3080 IF <inpval*>="0" AND inpval$<="9") OR (inpval$>="A >AE 

" AND inpval$<="F") THEN PRINT tcaX,CHR$(8)j" ";CHR*(8) 

jinpval»; ELSE PRINT CHR$(7);:G0T0 3000 

3090 valinp$=vahnp$+inpval$ >YZ 

3100 IF LEN(valinp$)=0 THEN PRINT CHR*(7) jiinpval$="':G >KE 

0T0 3000 

3110 MEND m. 

3120 PRINT *caX,CHR$ (8);" ";CHR$(8); >DE 

3130 RETURN >FA 

3140 ' >YA 

3150 ' Sous-progranae de traitement du BREAK >YB 

3160 ' >yc 

3170 ' >yd 

3180 CLOSEOUTiWINDON 1,80,1,25:LXATE l,25iPRINT SPACE* >LF 
(80);:LOCATE 1,24: GOTO 3260 

3190 ' >YF 

3200 ' Sous-prograaae de traitement des erreurs >XH 

3210 ' >XJ 

3220 ' >XK 

3230 CLOSEOUTiWINDON 1 ,80, 1 ,25: CLS >DH 

3240 PRINT "Erreur #"jERR;"a la ligne #";ERL >UB 
3250 RESUME 3260 >SK 

3260 END >YK 
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C. LE MOULLEC 



Valable pour CPC 
464-6128 



Si vous aimez Tetro (voir ce 

numéro) vous avez de grandes 

chances d'apprécier EMPIRE. 

Les figures à assembler sont ici 

de simples cubes. 



Mais l'action se déroule en 3D et 
risque de changer certaines ha- 
bitudes. Le mode d'emploi est inclus dans 
le jeu. 

Chargement : 

Le premier fichier est le programme 
EMPIRE. Ensuite, EMP1DATA doit être 
lancé afin d'obtenir EMPIB'N. C'est en 
faisant alors RUN "EM - 
PIRE" que le jeu 
commence. 




CLAUDE LE MOULLEC 

83 RUE J CURIE 

22420 PLOUARET 

TEL 96 38 94 24 




10 REM 

20 REM 

30 REM 

40 REM 

50 REM 

60 REM 

70 REM 

80 REM 

90 REM 

100 REM 

110 REM 

120 SYMBOL AFTER 230 

130 SYMBOL 231,0, 138. 14^,138, 138. 13 

8,234,0 

140 SYMBOL 232,0,224,128.128.128.12 

8.224,0 

150 SYMBOL 233,Û,J38, 138, 138.234.4. 

.238,0 

160 SYMBOL 234,0,238,132,132.196.13 

2,132,0 

170 SYMBOL 235,0.174,170,170,174.23 

4,170,0 

180 SYMBOL 236,0,238.168.232,204,16 

8.174,0 

190 MEMORY &7FFF 

200 L0AD "EMPIBIN\«.9C10 

210 G0SUB 3070:REM PRESENTATION/EXP 

Ll CATIONS 

220 REM ::::::::::::::::::::::: 

230 REM : : 

240 REM : VARIABLES DE BASE : 



LA 

KG 

>EC 

RC 
EE 
>TX 
>EG 
»PZ 
■KL 
YA 

PU 
Ht 

HH 
G8 

Ht. 

HL 

HA 

>LF 

;TJ 
RT 

;YC 

>KH 
VI 



250 REM : : >KK 

260 REM s::::::;::::::::::::::: ;YC 

270 DEFINT auMODE 1 >P2 

260 BORDER 0:INK 0.0: INK 1.6: 1 NK H, >LX 

2:INK 3,19 

290 UEF FN pot «. y) =&0CKMJH y- 1 ) «80» l )GC 

I-1H2 

300 DIM spU5):FÛR h=0 T0 ll:spihtl >XL 

l=&9C10«lh«84):NEXT 

310 TR»=CHR*l22)tCHR$lll:NR*=CHR»<2 >MA 

ZHCHRK0) 

320 DIM je(17.17):dpl = INT(RND»4Hl )BD 

330 tMp3-360:tp-tMps:UIND0U il, 9, >HA 

32,1,23 

340 ENV 1.16.-1.1:ENT 2.200.2Û.5 )XD 

350 DATA 10.11,12,13.14,26.27.28.29 >LM 

,30.30.29.28.27.26.14.13.12,11,10 

360 DATA 5,4,3,2,1,1,2,3,4,5,17,18, >ZD 

19.20.21.21,20,19.18,17 

370 DATA 1,2,3,4,5,5,4,3,2,1,5,4,3. >MK 

2.1.1.2.3,4.5 

380 DIM p«(2Ù):RESTÛRE 350:F0R h=l >FY 

TÛ 20:READ a:p«(h)=a:NEXT 

390 DIM pyl20J:REST0RE 360.-F0R h=l ;FC 

TÛ 20:READ a:py(hi=a:NEXT 

400 DIM iw( 20): RESTORE 370:F0R h»l )FJ 

TO 20:READ a:nv(h)=a:NEXT 

410 REM :::::::::::::::::: >YD 

420 REM : : >KJ 

430 REM : DESSIN DECOR : >TD 
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440 REM : : >LA 

«50 REM ::::::::::::::::::::::: >YH 
460 GOSUB 470: GOTO S70 >QU 

470 PLOT 176,208,2:DRAW 320,352:DRA )PF 

V 464,20B:DRAV 320,64:DRAU 176,208 

480 PLOT 224,384,3:DRAW 320,2B8:DRA )JQ 

V 416,3B4:PL0T 496,304:DRAV 400,208 
:DRAV 496,112 

490 PLOT 224, 32: DRAM 320, 128: DRAW 4 >CC 
16,32:PL0T 144,U2:DRAV 240,208:DRA 

V 144,304 

500 zl=0:FOR (1=0 TO 3:0RIGIN I60*z >FU 

1,96-zl :GÛSUB 510:zl=zH16:NEXT |li 

GOTO 530 

510 il=0:FOR hl=0 TO 272 STEP 16:al >UU 

=TEST(hl,il):IF al=0 THEN PLOT hl,i 

l 

520 il=il*16:NEXT hl:RETURN >YF 

530 zl=Û:FÛR (1=0 TO 3:0RIGIN 160*z >VQ 

l,320»zl:GOSUB 550:zl=zl*16:NEXT (I 

540 ORIGIN 0,0:RETURN >RD 

550 il=0:FOR hl=0 TO 272 STEP 16:al >UY 
=TEST(hl,il):IF al=0 THEN PLOT hl.i 
I 

560 il=xl-16:NEXT hl:RETURN >YH 

570 X=1:Y=20:A$="SC0R":G0SUB 660 >AG 
580 X=33:Y=20:A»= , HIGH":G0SUB 660 >BR 
590 X=1:Y=1:A*="TIHE":G0SUB 660 >ZX 

600 X=1:Y=6:A*=*LINE":G0SUB 660 >ZL 

610 X=33:A»="NEXT":Y=6:G0SUB 660:Y= >GK 
3:G0SUB 660: Y = 1 : GOSUB 660 
620 PRINT TR»:F0R H=3 TO 8:PEN 2:L0 >D0 
CATE X,H:PRIHT CHR« (1 43 ): LOCATE X«7 
,H:PRINT CHR$(143):NEXT 
630 FOR H=3 TO B:PEN 3:L0CATE X,H:P >WF 
RINT CHR»(207):L0CATE X«7,H:PRINT C 
HR*( 207): NEXT: LOCATE 1,1: PRINT NR» 
640 VINDOV I2,34,39,3,8:CLS I2:CALL >YR 
4A0ÛE,tC186,sp(dpl) 
650 GOTO 730 >ZN 

660 PEN 2:F0R H=X TO X*7:L0CATE H,Y )VE 
♦1:PRINT CHR*(143):L0CATE H,Y»3:PRI 
NT CHR$(143):NEXT 

670 LOCATE X,Y«2:PRINT CHR*(143):L0 >KD 
CATE X*7,Y*2:PRINT CHRK143) 
680 PEN 1:L0CATE X*1,Y:PRINT CHRI12 >VN 
14>«CHRI1143HCHRI(143HCHR*U43)«C 
HR»(143)*CHRI(21b) 

690 PEN 0:LOCATE X*2,Y:PR1NT TR»;AI >RL 
:PEN 3:L0CATE X,Y*1:PRINT CHRK223) 
:LOCATE X«7,Y*1:PRINT CHR»(222) 
700 LOCATE X,Y«2:PRINT CHR»(207):L0 >KZ 
CATE X+7,Y«2:PR1NT CHR*(207) 
710 LOCATE X,Y»3:PRINT CHRM220):LO >KT 
CATE X*7,T*3:PRINT CHRI1221) 
720 LOCATE 1,1: PRINT NR«:RETURN >AR 



::::::::::: 


>ZC 




)LF 


PRINCIPALE 


>ZC 




)LH 


::::::::::: 


>ZG 



730 PEN 3:sc=0:G0SUB 2690: li=0:GOSU >UC 

B 2730:GOSUB 2760 

740 GOSUB 224O:G0SUB 2200:pas=0: IF >TP 

fin=l THEN 2890 

750 REM 

760 REM 

770 REM : ROUTINE 

780 REM 

790 REM 

800 zd=INT(RNDt20Hl:i=px(zd):y=pyl )YV 

zd):niv=nv(zd) : 

810 dp=dpl:dpl=INT(RNDi4)»l:CLS 12: >EC 

CALL tA00E,fcC186,sp(dpl) 

820 CALL kAOOE.FN po(«,y),sp(dp) :tp )LB 

=teips 

830 GOTO 2800 )FJ 

840 IF 1NKEY(1)«INKEY(7S)=0 THEN pa >VL 

3 = pasM:G0T0 900 

850 IF INKEY(8)HNKEY<74)=0 THEN pa >VA 

s=pas«l:G0T0 960 

860 IF INKEYl9)«INKEY(76)=û THEN 10 >DN 

60 

870 GOTO 830 )AC 

880 UKILE INKEY«O"":klEND:F0R t=l T )AY 

100:NEXT t:G0T0 830 

890 REM ::: SENS AIGUILLES MONTRE : >EZ 

900 SOUND 1,100.2,5:1F pas>5 THEN 1 >DT 
060 

910 CALL iAUOt.FN poli,/ ). Iptdpl >U 
920 zd=zd«l:!F zd=21 THEN zd=l >YP 
930 i=pxlzd):y=py(zd):nlv=nv(zd):CA >KM 
LL iAOOE.FN pod, y), spldp) 
940 GOTO 880 )AF 

950 REM ::: SENS CONTRAIRE AIGUILLE >JN 
S ::: 

960 SOUND 1,100,2,5: IF pas)5 THEN 1 >DZ 
060 

970 CALL 1A00E,FN po(i,y),sp(dpl 
980 zd=zd-l:!F zd=0 THEN zd=20 
990 i=pilzd):y=py(zd):nlv=nvlzd):CA >KC 
LL &AOOE.FN polx.y ) , spldp) 
1000 GOTO 880 
1010 REM :::: 
1020 REM : 
1030 REM : 
1040 REM : 
1050 REM : 

1060 SOUND 1,200.50.7,0,2 
1070 IF zd<6 THEN ss=l:GOTO 1110 
1080 IF zd<ll THEN ss=2:GOT0 1110 
1090 IF zd<16 THEN ss=3:G0TO 1110 
1100 ss=4 

1110 ON ss GOTO 1130,1190,1250,1310 >AE 
1120 REM ::: CHUTE SENS 1 ::: >VE 
1130 st=13:F0R h=13 TO 1 STEP -1:1F )FD 
Je(6*niv,h)<>0 THEN st=h-l 



CHUTE DES CUBES 



>zc 

>YY 



>FC 

>ZB 
>RC 

>m 

>RE 
>ZF 

m 
>a 

>2A 
>ZH 

>ra 



1140 NEXT >KH 

1150 FOR h=l TO st-l:CALL IAOOE.FN )RL 
poli, yl, spldp) 

1160 i=i«l:y=y«l:CALL IAOOE.FN poli >WM 
,y),sp(dp):NEXT 

1170 ai=6«niv:by=st:GÙSUB 1540: Jeta )HF 
i,by)=dp:GOSUB 169Û:G0T0 740 
Il 80 REM ::: CHUTE SENS 2 ::: )VM 
1190 st=S:FOR h=5 TO 17:1F jelh,12- >XZ 
nlv)<>0 THEN st=hM 

1200 NEXT >KE 

1210 FOR h=17 TO st«l STEP -1:CALL >BL 
IAUOE.FN po(i,y),sp(dpl 
1220 i=i-l:y=yH:CALL IAOOE.FN poli >tlL 
,y),sp(dp):NEXT 

1230 a«=st:by=12-nlv:G0SUB 1540:1e( >NL 
ai,by)=dp:GOSUB 1690:GOTO 740 
1240 REM : : : CHUTE SENS 2 : : : >«J 
1250 st=5:F0R h=5 TO 17:1F 1e(6»niv >WX 
,h)<>0 THEN st=h*l 

1260 NEXT >LA 

1270 FOR h=17 TO st«l STEP -1:CALL >BT 
IAOOE.FN po(«,y),sp(dp) 
1280 i=i-l:y=y-l:CALL 4A00E.FN pod >WV 
,y),sp(dp):NEXT 

1290 ai=6*niv:by=st:G0SUB 1540:: jet >NF 
ai,by)=dp:GOSUB 1690:G0T0 740 
1300 REM ::: CHUTE SENS 4 ::: >VH 
1310 st=13:F0R h=13 TO 1 STEP -1:IF >GM 
je(h,12-nlv>O0 THEN st=h-l 
1320 NEXT >KH 

1330 FOR h=l TO st-l:CALL IA00E.FN >RL 
poix, y). spldp) 

1340 i=i*l:y=y-l:CALL IAOOE.FN poli >UP 
,y),spldp):NEXT 

1350 ax=st:by=12-nlv:GÛSUB 1540: 1e( >NP 
ai,by)=dp:GOSUB 1690:G0T0 740 
1360 REM ::::::::::::::::::::::: >ZK 
1370 REM : : )TA 

1380 REM : EFFACER UN CUBE : >VL 
1390 REM : : >TC 

1400 REM :: :::::::::::::::: >ZE 

1410 CALL &A0OE.FN poli,y),spldp*4) >CH 

1420 IF jelai-l,by)=0 AND je(a»-l,b )«Z 

y«l)=0 THEN CALL IAOOE.FN poli, y), s 

p(9) 

1430 IF Jelai-l,by)=0 AND je(ai-l,b >ZÏ 

y«l)O0 THEN CALL iAOOE.FN pod, y), 

sp(ll) 

1440 IF je(ai,by«l)=0 AND je(ai-l,b >XQ 

y«l)=0 THEN CALL 4A00E,FN poix, y), s 

p(10) 

1450 IF jetai, by«l)=0 AND jelai-l.b >ZM 

y*l)<>0 THEN CALL iAOOE.FN poli, y), 

sp(12) 

1460 IF 1e(ai,by-l)=0 AND ie(ai«l,b )AW 

y-l)<>0 THEN CALL &A038.FN poli,y-2 
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),sp(9) 

1470 IF je(ax»l,byl=0 AND je(ai«l.b >BP 

y-l><>0 THEN CALL &A038.FN po(x,y-2 

),sp(10) 

U80 RETURN >FG 

1490 REH ::::::::::::::::::::::: >Z¥ 

1500 REM : : >RF 

1510 BEN : AFFICHES UN CUBE : >UY 

1520 REM : : >RH 

1530 REH ::::::::::::::::::::::: >ZJ 

1540 CALL iAOOE.FN polx.y ) , sp(dp) >AB 

1550 CALL 4A038.FN po(x,y),sp(dp*4) >CC 

1560 IF JE(AX-1,BYK>0 AND JEUI-1, >XF 

BY*l)O0 AND JE(AX,BY»1K>0 THEN RE 

TURN 

1570 IF JE(AX-1,BY>=0 AND JEfAX-l.B )AR 

Y<1)=0 AND JE(AX,BY*1)=0 THEN GOSUB 

1640:G0SUB 1650:RETURN 
1580 IF JE(AX-1,BY)=0 AND JEIAX-1.B )VW 
YUIOO AND JE(AX,BYU)=0 THEN GOSU 
B 1640:G0SUB 1650:GOSUB 1670:RETURN 
1590 IF JE(AX-1,BY)<>0 AND JElAX-1, >yH 
BY*1)<>0 AND JElAX.BYM 1=0 THEN GOS 
UB 1650:G0SUB 1660:G0SUB 1670:RETUR 
N 

1600 IF JE(AX-1,BY)=0 AND JE(AX-1,B >UJ 
Y«1K>0 AND JE(AX,BYM)O0 THEN GOS 
UB 1640:G0SUB 1670:G0SUB 1680:RETUR 
N 

1610 IF JE1AX-1,BYX>0 AND JElAX-1, >KT 
BY*1)=Û AND JE(AX,BY*1)=0 THEN GOSU 
B 1650: RETURN 

1620 IF JE(AX-1,BY)=0 AND JE(AX-1,B >KX 
Y*1)=0 AND JElAX,BY«l)O0 THEN GOSU 
B 1640:RETURN 

1630 RETURN:REM un os ? tel 96 38 9 >CK 
4 24 

1640 CALL 4A038.FN po(x,y),sp(9):RE )HE 
TURN 

1650 CALL IAU38.FN pol i. yl.spl 10) :R )JJ 
ETURN 

1660 A=JE(AX-1,BY):CALL 4A038.FN po >FH 
(i l,y*ll,sp<a+4):RETURN 
1670 A=JE(AX-1,BYH):CALL IA038,FN >FH 
po(x,Y<2),sp(a*4):RETURN 
1680 A=JE(AX.BY*1):CALL &A038,FN po >FK 
ll«l,y*l),sp(a*4):RETURN 
1690 ON ss GOTO 1760,1860.1960,2060 >AV 

1700 REH :::::::::::::::: >ZH 

1710 REH : : >RJ 

1720 REH : DECALAGE DES CUBES : >YA 
1730 RED : : )TA 

1740 REH ::::::::: :::::::: >ZH 

1750 REH ::: DECALAGE SENS 1 ::: >YT 
1760 IF by<>4 THEN RETURN >UU 
1770 pla=0:FOR h=13 TO S STEP -1:1F >ZZ 

Je(AI,H>=0 THEN pla=h 



1780 NEXT:IF pla=0 THEN RETURN >ZZ 
1790 il=ax:yl=by:FOR h=4 TO pla:IF )YY 
)e(AX,H>=0 THEN 1810 
1800 x=(AX*HH2:y=<lltH)-AX:dp=te(A >BZ 
X.H):BY=H:GUSUB 1410 
1810 NEXT:FOR h=pla TO st+1 STEP -1 >GL 
:je(AX,H>=|elAX,H-ll:NEXT 
1820 je<xl,yl)=0:FOR h=4 TO pla:lF >XH 
je(AX,H>=0 THEN 1640 
1830 i=(AX*H)»2:y=(lltH)-AX:dp=le(A >BH 
X.H):BY=H:GOSUB 1550 
1840 NEXT: RETURN >HB 

1850 REH ::: DECALAGE SENS 2 ::: >YV 
1860 IF ai<>14 THEN RETURN >VN 
1870 pla=0:FOR h=S TO 13:1F ieih.by >QZ 
1=0 THEN pla-h 

1880 NEXT: IF pla=0 THEN RETURN >ZA 
1890 xl=ax:yl=by:FOR h=14 TO PU ST >HB 
EP -1:1F je<h,by)=0 THEN 1910 
1900 x = (h*byH2:y=<lHby)-h:dp=|elh >BE 
,by):ax=h:G0SUB 1410 
1910 NEXT:F0R h=pla TO st*l:Je(h,by >YN 
>=je(h*l,by):NEXT 

1920 Je(«l,yl)=0:FOH h=14 TO PU ST >GL 
EP -1:1F ie(h.by)=0 THEN 1940 
1930 « = (h*by)«2:y=(ll»by)-h:dp=.ie(h >BN 
,by):ax=h:GOSUB 1550 
1940 NEXT: RETURN >HC 

1950 REM : : : DECAUGE SENS 3 : : : >YX 
1960 IF by<>14 THEN RETURN >VR 
1970 pla=0:FOR h=5 TO 13:1F jelAX.H )QY 
1=0 THEN pla=h 

1980 NEXT: IF pla=0 THEN RETURN >ZB 
1990 xl=ax:yl=by:FOR h=14 TO PU ST >HR 
EP -1:1F je(AX.H)=0 THEN 2010 
2000 x = <AHH>*2:y=(lHH)-AX:dp=jelA )BR 
X,H):BY=h:GOSUB 1410 
2010 NEXT:FOR h=pla TO st«l:je(AX,H >YA 
)=]e(AX,H+l):NEXT 

2020 je(xl,yl)=0:FOR h=14 TO PU ST >GR 
EP -1:1F )e(AX,H)=0 THEN 2040 
2030 x=(AI*H)*2:y=(ll»H)-AX:dp=Je(A >BA 
X.H):BY=h:GOSUB 1550 
2040 NEXT: RETURN >HU 

2050 REH : : : DECAUGE SENS 4 : : : >YP 
2060 IF u<>4 THEN RETURN >UK 
2070 pla=0:FÛR h=13 TO 5 ïiîEP 1:1F ..V 
jeih.b, )=0 THEN pla=h 
JOOU NEXT: IF pla=U THEN RETURN >ZT 
209U xl=ax:yl=by:FOR h=4 TO pla:lF )YH 
je(h.by)=0 THEN 2110 
2100 x=(h»byH2:y=<ll+by>-h:dp=je(h >BX 
,by):ax=h:GOSUB 1410 
2110 NEXT:FOR h=pla TO st+1 STEP -1 )GJ 
:Je(h,by)=jelh-l,by):NEXT 
2120 je(xl,yl)=0:F0R h=4 TO pla:lF )XX 
je(h,by)=0 THEN 2140 



>MV 
>ZH 

kJ 
)YU 
>TA 

ZM 
>RD 



>MU 
>ZU 

,>UL 



2130 i=(h«by)+2:y=(ll+by)-h:dp=je(h >BF 

,by):ax=h:GQSUB 1550 

2140 NEXT:RETURN 

2150 REH 

2160 REH 

2170 REH : TEST LIGNE/SORTIE 

2180 REH 

2190 REH 

2200 fin=0:F0R h=7 TO 11 

2210 IF 1e(h.4)<>0 OR |elh. 14)00 >RD 

R Je(4,h)<>0 OR }e(14,h)<>0 THEN fl 

n=l 

2220 NEXT: RETURN 

2230 REH ::: LIGNE COHPLETE ? ::: 

2240 FOR g=S TO 13:F0R h=5 TO 9: IF 

je(h,g>=0 THEN 2270 

2250 coi--l:F0R z=h TO M»: IF jelz.g >UE 

)<>jelh,g) THEN coi=0 ELSE lx=h:ly= 

I 

2260 NEXT z: IF coiM THEN GOSUB 237 >PQ 

0: GOSUB 2480 

2270 NEXT h, g >KF 

2280 FOR h=5 TO 13:F0R g=5 TO 9:1F MJK 

je(h,g)=0 THEN 2310 

2290 coi=l:FOR z=g TO g+4:IF jelh.z >UH 

)<>jelh,g) THEN coi--U ELSE lx=h: ly= 

i 

2300 NEXT 2: IF CM*1 THEN GOSUB 258 )PN 

0: GOSUB 2460 

2310 NEXT g, h: RETURN >QQ 

2320 REH ::::::::::::::::::::::: >ZG 

2330 REH : : >RH 

2340 REH : EFF LIGNE HORIZONT : >YV 

2350 REH : : >RK 

2360 REH ::::::::::::::::::::::: >ZL 

2370 by=ly:FOR ax=lx TO lx»4 )XR 

2380 x=(aHbyH2:y=(ll*by)-ax:dp=ie )MD 

lax.by) 

2390 je(ax.by)=0:CALL IAOOE.FN poli >0< 

,y).sp(dp*4) 

2400 IF )e(ax.bytl)=0 THEN CALL MO >YT 

OE.FN polx.yl.spllO) 

2410 NEXT: IF Je( lx-l,by)<>0 THEN RE >HJ 

TURN 

2420 i=(lnby)i2:y=(lltby)-lx:CALL >NY 

UOOE.FN po(x,y),sp(9):RETURN 

2430 REH ::::::::::::::::::::::: >ZJ 

2440 REH : : )RK 

2450 REH : REH I SE A JOUR : >TV 

2460 REH : : >TB 

2470 REH ::::::::::::::::::::::: >ZN 

2480 sc=sc*8S:G0SUB 2690: 1 l = liH:GO )HH 

SUB 2730 

2490 teips=teips-10:IF teips<60 THE >QD 

N te«ps=60 

2500 GOSUB 470:F0R Bt=b TO 13:F0R A >NK 

1=5 TO 13: !F JE(AI.BY)=0 THEN 2520 



2510 i=(AXtBY)«2:y=(ll«BY)-AX:dp=1e >ZZ 

(AX.BY):G0SUB 1550 

2520 NEXT AX.BY.-RETURN >TC 

2530 REH :::::::::::::::::::::::: >AA 

2540 REH : : )TB 

2550 REM : EFF LIGNE VERTICALE : >ZD 

2560 REM : : >TD 

2570 REM :::::::::::::::::::::::: >AE 

2580 a«=l«:F0R by=ly T0 lyH )XU 

2590 i = lai*byH2:y=(ll*by)-ax:dp=.1e )HG 

(ai.by) 

2600 Jetai. by)=0:CALL tAOÛE.FN pod >QD 

,y),sp(dpU) 

2610 IF Jela«-l,by)=0 THEN CALL iAO >XD 

OE.FN pol«,y),sp<9) 

2620 NEXT: IF lelai, ly*SK>0 THEN RE >HN 

TURN 

2630 «=(ai+ly*4)*2:y=(ll*ly*4)-ax:C >UL 

ALL tAÛOE.FN poix. , ■). sp( lui :REÎURN 

2640 REM :::::::::::::::::::::::: >AC 

2650 REM : : >TD 

2660 REM : SCORE, TEHPS, ETC.. : >YJ 

2670 REM : : >TF 

2680 REM :::::::::::::::::::::::: >AG 

2690 PEN 3:LÙCATE 2,22:PRINÎ nr»;"U >FZ 

00000": IF sc=0 THEN RETURN 

2700 IF sc<100 THEN LOCATE 6,22:PRI >FH 

NT nr»:" ":LOCATE 5.22:PRINT tr$;s 

c: RETURN 

2710 IF sc<1000 THEN LOCATE 5.22:PR )HQ 

INT nr»;" ":LOCATE 4,22:PRINT tr» 

; se: RETURN 

2720 IF scUOOOO THEN LOCATE 4,22:P >KC 

RINT nt*;" ":LOCATE 3.22:PRINT t 

r*;sc:RETURN 

2730 PEN 3:L0CATE 2.8:PRINT nr»;".. >EH 

00..": IF I i=0 THEN RETURN 

2740 IF IK10 THEN LOCATE 5,8:PRINT >AZ 
nr»:" ":LOCATE 4,8:PRINT tr«:li:RE 
TURN 

2750 LOCATE 4,8:PRINT nr»:" ":L0CA >JN 

TE 3,8:PR1NT tr»; li -.RETURN 

2760 PEN 3.-L0CATE 34.22:PRINT nr»;" )JG 

000000" :1F rec=0 THEN RETURN 

2770 IF rec<100 THEN LOCATE 3B,22:P )LZ 

RINT nr»;" ":LOCATE 37,22:PRINT tr 
.(;rec:RETURN 

2780 IF recUOOO THEN LOCATE 37,22: >PG 

PRINT nr»;" ":LOCATE 36.22:PRINT 

tr»;rec: RETURN 

2790 IF rec<10000 THEN LOCATE 36,22 )«C 

:PRINT nr»;" ":LOCATE 35.22:PRIN 

T tr»;rec:RETURN 

2800 tp'tp-1 >GJ 

2810 PEN 3:L0CATE 3,3:PRINT nr»;tp )CM 

2820 IF tp>0 THEN 840 >NY 




2830 ENT 4,20,3,5:S0UND 4.20.100.15 >QD 

,0,4: GOTO 1070 

2840 REM :::::::::::::::::::::: 



2850 REM 
2860 REH 
2870 REM 
2880 REH 



FIN DE PARTIE 



)At 
)TF 
>TC 
)TH 
;AJ 



2890 FIN=0:FOR t = l TO 200:S0UND l,t >PD 
,1,14:NEXT t 

2900 FOR |=1 TO 17:F0R h=l TO 17 >XC 
2910 IF je(h,g)=0 THEN 2930 >UA 
2920 sc=scUO:SOUND 1,0, 15, 15,1,, 15 >NR 
:G0SUB 2690 

2930 NEXT h, g: PEN 1: PAPER »1,0:ERAS >UZ 
E JE:DIM JE( 17. 17) 

2940 IF rec<sc THEN rec=sc:G0SUB 27 >EN 
60 

2950 FOR h=l TO 25: LOCATE 11.24,23 
PRINT I1,CHR»(1Û):NEXT 
2960 PEN 3:L0CATE 16.10:PRINT "UNE 
AUTRE?" :LOCATE 18.12:PRINT "(0/N)" 
2970 A»=INKEY»:IF A»="" THEN 2970 
2980 A»=UPPER»(A»):IF A»="N" THEN E 
ND 

2990 IF A»="0" THEN 3000 ELSE 2970 
3000 FOR h=l TO 25: LOCATE 11.24,23 
PRINT »1,CHR»U0>:NEXT 
3010 CLS I2:G0SUB 470:DP1=INT(RND«4 >HZ 
H1:DP=DP1:TEHPS=360:GOTÛ 730 
3020 REH :::::::::::::::::::::: 
3030 REM : 

3040 REH : PRESENTATION 
3050 REH : 

3060 REH :::::::::::::::::::::: 
3070 CALL &BBFF:HODE 1: BORDER 
0,O:INK 1,6: 1NK 2.2: I NK 3,19 
3080 PEN 3:L0CATE 11.8:PRINT STRING >PZ 
»(21,"«">:L0CATE 11,15:PRINT STRING 
»(21,"»"):F0R h=9 TO H:LOCATE 11, h 
:PRINT "«VLOCATE 31.h:PRlNT"i":NEX 
T 

3090 PEN 2:L0CATE 13, 10:PRINT"1 -"; 
:PEN 1:PRINT" EXPLICATIONS" 
3100 PEN 2:L0CATE 13,13:PR1NT"2 -"; 
:PEN 1 .PRINT" ACTION" 
3110 A»=INKEY»:IF a»="" THEN 3110 
3120 PRINT CHR»(7):IF A»="l" THEN 3 
140 

3130 IF A»="2" THEN iu=REHAIN(2) :RE )RB 
TURN ELSE 3110 

3140 RESTORE 3640:EVERY 20,2 GOSUB 
3620 

3150 LHC»=CHR»(231)»CHR»(232)»CHR»( 
233HCHR»(234HCHR»(235)»CHR«(236) 
3160 tr»=CHR»l22)*CHR»(l):nr»=CHR»( 
22)»CHR»(0) 
3170 MODE 0:B0RDER 2: INK 0,0: INK 1, >BA 



,>TP 

;ZY 
)DE 

,YR 
>AT 



>ZE 
>Bf 

>MI 

;kH 

>ZJ 

INK >HR 



)LP 
;YD 



>ft 



)QU 



>NZ 



26 : 1 NK 2. 14: INK 3. 1 : INK 4,3:INK 5,2 
1: INK 6. 18: INK 7,9:INK 8.6: INK 9,24 
: INK 10. 13: INK 11. 15: INK 12,17: INK 

13,20: INK 14,24: INK 15,0 
3180 FOR T=0 TO 810:PL0T RND«640,RN >DH 
Di4OOH75,RNDM0«l:NEXT 
3190 HINDOU 11, 1,20, 15. 25: PAPER 11, >KT 
13:CLSI1 

3200 PLOT 0,5,l:DRAy 639,5:PL0T 0,1 >GF 
00:DRAU 639.1OO:PL0T 0, 150.-DRAU 639 
,15O:PL0T 0.175:DRAU 639,175 
3210 PLOT Ù,S:DRAU J16. 1 ,'5: PLÛT 639 >CL 
,5:DRAU 324, 175: PLÛT 0, , ;5: DRAW 316, 
lî5:PLur 6J'J. /5:URAW 324,WS:PLUT I 
60.5:DRAU 316.175:PL0T 480,5:DRAU 3 
24. 1 75 : PLÛT 0,120:DRAU 318. 175:PL0T 
639.120:DRAU 324,175:PL0T O.155:0R 
AW 316.175:PL0T 639.15S:DRAy 324,17 
5 

322Û DEG:ÛRIGIN 3OO,175:F0R T=-94 T >CU 
Û 100 STEP 0.5:H0VE 0,0:PLOT SIN(T) 
I200,C0S(T)»200. 14:DRAUR 20,0:DRAWR 
20.0,13:DRAWR 20.0.12:DRAWR 20,0.1 
1:DRAUR 20,0, 10:NEXT:0RIGIN 0,0 
3230 0R1GIN 0,0 >XK 

3240 A=Û:FOR T=Û TO 28: PLÛT 200+A.l >VU 
10*T, 15:DRAy 300+A, 110*T:A=AU.2:NE 
XT 

3250 FOR T=0 TO 70:PLÛT 200,120<T:D >YQ 
RAU 2?0,120*T,S:NEXT:A=0:F0» T=190 . 
TO 202:PL0T 200*A,T:DRAU 270*A,T,B: 
DRAW 27Û«A,12Û*A,7:A=A»2:NEXT 
3260 A=Û:FÛR T=û TO 28:PL0T 500*A,S >TT 
0«T.15:DRAU 6O0»A,S0«T:A=AH.2:NEXT 
3270 FOR T=0 TO 70:PL0T SO0,60*T:DR >VA 
AU 570,60»T.2:NEXT:A=0:F0R T=130 TO 

142:PL0T SOO*A,T:DRAU 570<A,T.10:D 
RAU 570»A,60»A,B:A=A«2:NEXT 
3280 A=0:F0R T=0 TO 28:PLÛT 20+A. 10 >RP 
♦T.1S:DRAW 150«A. 10«T:A=AH.2:NEXT 
3290 FOR T=0 TO 90:PL0T 20,20*T:DRA )UT 
U U0,20»T,8:NEXT:A=0:F0R T=1I0 TÛ 
132:PL0T 20*A,T:DRAU 110<A,T,2:DRAU 

110tA,20«A.10:A=A»1.2:NEXT 
3300 PEN 0:LOCATE 7,22:PRINT tr»;"L >UF 
•EHPIRE":LOCATE 13,24:PRINT "ECLATE 

3310 PEN U:LOCATE 2.2:PRINT lic»;n >EE 
r» 

3320 UHILE INKEY»="":UEND )UD 

3330 REH ::::::::::::::::::::::: >ZJ 

3340 REH : : >RK 

3350 REH : EXPLICATION : >TD 

3360 REH : : >TB 

3370 REH ::::::::::::::::::::::: >ZN 

3380 CALL 4BBFF:H0DE 1: BORDER 0: INK >HU 
0.0: INK 1.6: INK 2.2: INK 3,19 
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3390 CLS:H0DE 1:LÛCATE 13,1:PRINT"L )BB 
'EMPIRE ECLATE":PEN 2:L0CATE 13,2:P 
RINT"- " 

3400 PEN 3:L0CATE 1,4:PRINT" L'E >TP 
«PIRE ECLATE c'est un TETRIS a lapu 
issance 4 et en trois dimensions." 
3410 PEN 2:L0CATE 1,4:PRINT" L'E >LB 
«PIRE ECLATE": PEN 1:L0CATE 30,4:PRI 
NT "TETRIS" 

3420 PEN 3:L0CATE 1,7:PRINT" Des >FA 
cubes de couleurs arrivent par 4vo 
ies différentes pour s'arrêter d 
ansl'aire qui leur est réservée." 
3430 LOCATE 1,11:PRINT" Votre t >KC 
ache consiste A en aligner Sde la ■ 
éie couleur pour les voir dispa-ra 

itre.Plus facile à dire qu'a faire. 

• 

3440 LOCATE 1,15: PRI NT" Le dépl >GH 
aceient de chaque cube est 1 lai té 
a cinq pas et ils n'hésitent pas Â 

jouer des coudes pour se faire de 

laplace." 
3450 LOCATE 1.20:PRINT" Nais au >BH 
grand iaiais ils ne devronts'échap 
per en passant la frontière car.." 



3460 LOCATE 10,23:PEN 1:PRINT"LA Ll >AJ 

BERTE DES PEUPLES" 

3470 LOCATE 10,25:PRiNT"C'EST L'ENP )TC 

IRE ECLATE." 

3480 VHILE INKEY»="":UEND >VC 

3490 CLS:LOCATE 15,1:PRINT"DEPUCEH >GG 

ENTS":PEN 2:L0CATE 15,2:PRINT"m«« 

Iflilll* 

3500 LOCATE l,4:PRINT"Joystick/curs >0E 
eur":PEN 1:L0CATE 1.5:PRINT" 



3510 LOCATE 1 , 7 : Pfi 1 NT " "«CHR$<243 >TN 
)»" ' déplaceient du cube dans le 

sensdes aiguilles d'une lontre." 
3520 LOCATE 1,11:PRINT " "»CHR»(24 
2)<" ■ déplaceient du cube dans I 
e senscontraire des aiguilles d'une 

■ontre." 

3530 LOCATE 4,15:PRINT "<C0Pï> ou < 
FIRE> = le cube toibe" 
3540 PEN 3:L0CATE 6.19:PRINT STRING )HF 
»(3Û,"=") 

3550 PEN 2:L0CATE 4.22:PRINT "<ANY >EZ 
KEï>":LOCATE 14,22:PEN 1:PRINT"= d 
epart de la partie" 
3560 LOCATE 33.25:PEN 1:PRINT"<ENTE >BF 



;NG 



;KU 



8>":WHILE INKEY$="":WEND:CLS:GOTO 3 

070 

3570 REH 

3b80 REM 

3590 REH 

3600 REN 

3610 REN 

3620 Dl : 1 F (SQU) AND 7) 



MUSIQUE MAESTRO 



)ZQ 
>TF 

m 

>ZK 
THEN El: >RJ 



RETURN ELSE READ p: IF p=-l THEN RES 

TORE 3640: GOTO 3620 

3630 SOUND l.p.28,7:S0UND l.p,1.0:G >K» 

0T0 3620 

3640 DATA 239,239.253.239,239,239.2 >CM 

53,239,213.239,253,284,239,239,253, 

239,239,239.253.239.284,319,379,358 

,319,319,319,319,319,358,379,426,37 

9,358,319 

3650 DATA 284,319,319,358,319,319,3 )CH 

19,284.253,284,319,358.379.426.379. 

426,478.478,426,379,358,426,319,213 

,213,239,213,213,213,239.253,284,25 

3,239,213 

3660 DATA 190,213,213,239,213.213.2 )PC 

13.190,179.190,213,190.179,190,179, 

190.213,239.253,284,253.284.319,319 

,284, 253, 239, 284, 239, -1,-1^ 



OFFRE EXCEPTIONNELLE 



4 CASSETTES POUR 100 F !* 

Une cassette comprend les jeux, éducatifs ou utilitaires qui ont été publiés 
dans le numéro CPC correspondant. 



3 : Char d'assaut - Consommation de carburant - Fonction circle 
7 : Cherry Paint - Discut - Conjugaison - Calcul - Colditz - 
Double hauteur Référence croisée des variables basic 
9 : Cherry Paint - Creedata - Serpent Madness 
12 : Cherry Paint - Mozart - Louisiane - Prot dise - Etik disk. 
15 : Cherry Paint - Gemaine - Moniteur de disquette - Boite à ryth- 
mes. 



16 : Poker patience - Attentif - Menu 2+. 
24 : CAO 3D - Anti-erreurs - 1000 Bornes - Justification - Twenty 
Copy - Trames et collages - Graphofrance - Machines. 
28 : Anti-erreurs II - Routines machines - CAO 3D - Fichiers - Géné- 
rateur de sprites - Catprog. 



■ Je commande lots(s) de 4 cassettes à 100 F le lot 

. Numéros des cassettes souhaitées : 



' Si une des cassettes était épuisée, je désire à la place 
■ la cassette n" : 



Nom : 

Adresse: 

Code postal : 
Date : 



Prénom : 



. Villa : 

Signature : 



If 



Bon de commande à retourner accompagné d'un chèque à l'ordre des Editions SORfi.COM à l'adresse suivante : 
Editions SORACOM - La Haie de Pan - 35170 BRUZ. 



fc 



• Dans la limite des stocks disponibles. 
| "Ne pouvant être tenu pour resxnsable de l'acheminement des paquets postaux, nous conseillons à notre aimable clientèle de choisir renvoi en recommandé" 



l (Recommande : ♦ 10 F) 



Délai minimum d* livraison : 15 jours i réception dé la commanda 
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EMPADATA 



5 MEMORY i8FFF:M0DE 1 

7 LOCATE 1,10:PHINT ■ DATAS DE LA LIGNE 

CORRECTS" :PEN 2 
10 A=i9C10:F=tiA090:L=100:UHILE A<=F:F0R 
A=A TO AUS:READ CI:K=VAL("J."»C»):S=S> 
K«6S536i(S«K>32767):IF A<=F THEN POKE A 

,K 

20 NEXT:READ DI:T=VAL("l"»DI) :1F TOS T 

HEN PRINT CHR$(7);"Erreur ligne";L:END 

ELSE L=L«5 

25 LOCATE 20,10:PRINT IS.WEND 

100 DATA 00,01,08,00,00, 13, 8C.00, 00,37, 

CE, 00,00, 7F, EF, 00.031B 

105 DATA 01,FF,FF,08,13,FF,FF,8C,37,FF, 

FF,CE,7F,FF,FF,EF,0E2E 

110 DATA 3F,FF,FF,DE,1F,FF,FF,BC,0F,FF, 

FF,78,0F,7F,EF,F0,1914 

115 DATA OF,3F,DE,FO,OF,1F,BC,FO,07,OF, 

78,EO,03,OF,FO,CO,203A 

120 DATA 01,OF,FO,80,00,OF,FO,00,00,07, 

EO, 00, 00, 03, CO, 00, 2463 

125 DATA 00,01,80,00,00,11,88,00,00,23, 

4C, 00,00, 47, 2E.00, 2661 

130 DATA 00,8F, IF, 00,11, OF.OF, 88, 23,0F, 

0F,4C,47,0F,0F,2E,28E6 

135 DATA 8F.0F,0F.1F.4F,0F,0F,3E,2F,0F, 

0F,7C,1F,0F,0F,F8,2CSB 

140 DATA 0F,8F,1F,F0,0F,4F,3E,F0,0F,2F, 

7C,FO,07,1F,FB,EO,333C 

145 DATA 03,0F, F0,C0,01,0F,F0,80, 00, OF, 

FO, 00, 00, 07, EO, 00, 3864 

150 DATA 00,03, CO, 00, 00, 01, 80,00,00, 11, 

88, 00, 00, 32, C4, 00,3637 

155 DATA 00,74,E2,00,00,F8,F1,00,11,FO, 

F0,88,32,F0,F0,C4,43C5 

160 DATA 74,F0,F0 ) E2,F8,F0,F0,F1,7C,F0, 

F0,F2,3E,F0,F0,F4,5124 

165 DATA 1F,F0,F0,F8,0F,F8,F1,F0,0F,7C, 

F2,F0,0F,3E,F4,F0,5BA1 

170 DATA 07,1F,F8,E0,03,0F,F0,C0,01,0F, 

FO,80,00,OF,FO,00,61EO 

175 DATA OO,07,EO,OO,OO,03,CO,OO,OO,Ol, 

80,00,00, 11, 88, 00, 64A4 

180 DATA 00, 32, 4C, 00,00,65, A6, 00, 00, DA, 

5B, 00. 11, A5.A5, 88,6945 

185 DaTA 32,5A,5A,4C,65,A5,A5,A6,DA,5A, 

5A,5B,6D,A5,A5.B6,7122 

190 DATA 3E,5A,5A,7C,1F,A5,A5,F8,0F,DA, 

5B,F0,0F,6D,B6,F0,7947 

195 DATA 0F,3E,7C,F0,07, IF, F8.E0, 03,0F, 



F0,C0,01 


OF 


FO 


,80, 


200 DATA 


00 


OF 


FO, 


CO, 00,00 


01 


80 


,00, 


205 DATA 


00 


01 


08, 


CE, 00, 00 


n 


EF 


00, 


210 DATA 


01 


FF 


FF, 


FF, CE, 7F 


FF 


FF 


EF, 


215 DATA 


37 


FF 


FF. 


FF, 08, 00 


7F 


EF 


00, 


220 DATA 


DO 


37 


CE, 


08,00,00 


00 


00 


00, 


225 DATA 


00 


00 


00, 


00,00.00 


00 


00 


00, 


230 DATA 


00 


00 


00, 


4C,00,00 


47 


2E 


00, 


235 DATA 


00 


BF 


IF, 


0F,4C,47 


OF 


ÛF 


2E. 


240 DATA 


8F 


OF 


OF, 


0F,4C,U 


OF 


OF 


88, 


245 DATA 


00 


8F 


IF. 


4C, 00,00 


11 


88 


00, 


250 DATA 


00 


00 


00, 


00,00,00 


00 


00 


00, 


255 DATA 


00 


OÙ 


00, 


88,00,00 


32 


C4 


00, 


260 DATA 


00 


74 


E2, 


FO.88,32 


FO 


FO 


a, 


265 DATA 


74 


FO 


FO, 


F0,E2,32 


FO 


FO 


C4, 


270 DATA 


11 


FO 


FO, 


E2, 00,00 


32 


C4 


00, 


275 DATA 


00 


11 


88, 


00,00,00 


00 


00 


00, 


280 DATA 


0<J 


00 


00, 


00,00,00 


11 


88 


00, 


285 DATA 


oo 


32 


4C. 


5B, 00,11 


Ab 


Ab 


88, 


290 DATA 


32 


bA 


SA. 


5A,SB,65 


Ab 


Ab 


A6, 


295 DATA 


32 


bA 


SA, 


SB, 00,00 


bb 


Ab 


00, 


300 DATA 


00 


32 


4C. 


00,00,00 


00 


00 


00, 


305 DATA 


ÛÛ 


00 


00. 


00,00,00 


00 


00 


00, 


310 DATA 


00 


00 


00, 


00,00,00, 


00 


00 


00, 


315 DATA 


00 


00 


00, 


00,00,00, 


00 


00 


00, 


320 DATA 


08 


00 


00, 


00,00,0F, 


00 


00 


00, 


325 DATA 


OF 


08 


00, 


00,00,03, 


OF 


00 


00, 


330 DATA 


01 


OF 


00, 


00,00,00, 


03 


00 


00, 


335 DATA 


00 


01 


00, 


00,00,00, 


00 


00 


00, 



,8040 

,00,00, 07, E0,00,00,03, 

,836A 

.00,00, 13, BC, 00, 00, 37, 

,8685 

,08,13,FF,FF,8C,37,FF, 

,9196 

. CE, 13, FF, FF. 8C. 01. FF, 

,MAD 

. 00,00, 13, 8C, 00, 00, 01, 

,9CSA 

,00,00,00.00,00,00,00, 

,9C5A 

,00,00,11,88,00,00,23, 

,9DD7 

,00,11,0F,0F,88,23,0F, 

.A05C 

,1F,47,0F,0F,2E, 23,0F, 

,A2FF 

, 00,00,47, 2E,00, 00, 23, 

,AS2A 

,00,00,00,00,00,00,00, 

,AS2A 

,00,00,00,00,00,00,11, 

,A6B9 

,00,00,F8,F1,00,11,FO, 

,AF47 

,E2,F8,F0,FÛ,F1,74,F0, 

,BCS2 

,68,00,F8,F1,00,00,74, 

,C300 

.00,00,00,00,00,00,00. 

,C399 

,00,00,00,00,00,00,00, 

,C432 

.00,00,65,A6,00,00,DA, 

,C8D3 

,4C.65,AS,A5,A6,DA,SA, 

,0098 

,4C,11,A5,A5,8B,00,DA, 

,DSED 

.00.00.11,88.00.00.00. 

,D704 

,00,00.00,00,00,00,00, 

,D704 

.00,00,00,00,00,00,00, 

,D704 

,00,00,00,00,00,00,00, 

,D704 

,00,OC,00,00,00,OE,00, 

,D735 

,00,0F, OC, 00,00, 07, OE, 

,D78E 

,00, 00,0F, 00,00, 00, 07, 

,D7B7 

,00,00,00,00,00,00,00, 

,D7B8 



340 DATA 00,00,00,00,00,00,00,00,00,00, 
00, 00,00,00,00, 00.D7B8 
345 DATA 00,00,00,00,00,00,00,10,00,00, 
00,30,00,00,00, 70, D868 
350 DATA 00,00, OO.FO, 00,00, 10,FO,00,00, 
30,F0,OO,0O.70.EO.DCG8 
355 DATA 00,00,FO,CO,00,00,FO,80,00,00, 
FO,00,00,00,EO,00,E1B8 
360 DATA 00, 00, CO, 00, 00, 00, 80, 00, 00, 00, 
00, 00, 00, 00, 00, 00, E2F8 
365 DATA 00.00,00,00,00,00.00,00,00,00, 
00, 00, 00, 00, 00, 00. E2F8 
370 DATA 00,00,00,00,00,00,00,00,08,00, 
00, 00, OC, 00, 00, 00, E30C 
375 DATA OE. 00, 00, 00,0F, 00, 00, 00,0F, 08, 
00,00, OF,OC,00,00,E35B 
380 DATA 07, OE, 00,00,03,0F, 00,00, 01, OE, 
00,00,00,OC,00,00,E39D 
3SS DATA 00,00,00,00,00,00,00,00,00,00, 
00, 00, 00, 00, 00, 00, E39D 
390 DATA 00,00,00,00,00,00,00,00,00,00, 
00, 00, 00, 00, 00, 00, E39D 
395 DATA 00,00.00,00,00.00.00,00,00,00. 
00,00,00,00,00, 10, E3AD 
400 DATA 00,00,00,30,00.00.00,70,00.00, 
00,F0,0O,00,10,F0,E63D 
405 DATA 00, 00, 30, FO, 00, 00, 70, EO, 00, 00, 
FO,CO,00,00,70,80,EB4D 
410 DATA 00,00,30,00,00,00,00,00,00.00, 
00, 00, 00, 00, 00, 00, EB7D 
415 DATA 7C,C6,08,67,D0,D5,U,S0,C0,19, 
D1,C9,00,00,DD.5E.F2E2 
420 DATA 00,DD,56,01,DD,6E,02,DD,66,03, 
06,15,CD.19.BD.F3,F9SA 
425 DATA C5.E5.06.04,1A,AE,77,13,23,10, 
F9,E1,CD,00,AO,C1,009B 
430 DATA 10,EE,FB.C9,00,00,00,00,DD,SE, 
00,DD,56,01,DD,6E,0717 
435 DATA 02, DD.66, 03,06, 15,CD,19,BD,F3, 
CS,E5,06,Û4,1A,E6,ODC4 
440 DATA 88,28,06,4F,7E,E6,77,B1,77,1A, 
E6,44,28,06,4F,7E,140B 
445 DATA E6,BB,B1,77,1A,E6,22,28,06,4F, 
7E,E6,DD,B1,77,1A,1BF6 
450 DATA E6.11,28,06,4F.7E,E6,EE,B1,77, 
23, 13, 10, DO, El, CD, 23A8 
455 DATA 00,AO,C1,10,CS,FB,C9,00,00,00, 
00, 00, 00, 00, 00, 00, 27A2 
460 DATA 00,00,00,00,00,00,00,00,00,00, 
00, 00, 00, 00, 00, 00, 27A2 
700 CLS:PRI NT " FICHIER LANGAGE MACHINE 
CORRECT. . . • 
710 PRINT:PR1NT:PRINT 
720 PRINT "UNE TOUCHE POUR LA SAUVEGARD 
E...." 

730 CALL &BB18 
740 SAVE "EMPIBIN«,B,&9C10.t480^ 
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J5U 






C. CAUCHOIS 
et F. DUPUIS 



Valable pour CPC 
664-6128 



Le monstre SKUNK a capturé la 

princesse VAPSYde SHADOW 

ISLAND et l'a enfermée dans 

son château. Le roi NAKYPSO a 

fait appel à vous pour la 

délivrer. Mais attention ce ne 

sera pas facile car il vous faudra 

détruire toutes les briques de 

chaque salle du château. 



Après le chargement, l'utilisateur 
pourra soit sélectionner le clavier, 
soit le joystick, soit la redéfinition des 
touches ou bien regarder le tableau des 
scores. 

THE MONSTER'S CASTLE est 
composé de 4 fichiers : 

- TMC.BAS (Loader BASIC) 

- TMC.SCR (Graphique) 

- TMC.PRG (Programme) 

- RECORD.DAT (Tableau des sco- 
res) 

Le fichier FM. BAS crée le fichier bi- 
naire TMC.SCR. 

Le fichier TABLEAU.BAS crée le fi- 
chier RECORD.DAT. 

Pour démarrer faire run'TMC". 

THE MONSTER'S CASTLE a une 
petite particularité, ce programme pos- 
sède un tableau des scores permanent. 
C'est-à-dire que lorsque vous avez bat- 
tu un score du tableau des scores, l'ordi- 
nateur vous demande votre nom (la tou- 
che DEL ne fonctionnant pas), ensuite il 
l'enregistre sur la disquette en créant un 
nouveau fichier RECORD.DAT et en 
effaçant le fichier RECORD.BAK. 



ASTUCES : 

- Pour obtenir des vies infinies, sup- 
primer dans le fichier TMC.PRG la li- 
gne 1340. 

- Pour obtenir de l'énergie infinie, 
rajouter dans le fichier TMC.PRG la li- 
gne 1235 pw=623. 

- Pour voir les différents tableaux en 
jouant au clavier, changer dans le fichier 
TMC.PRG la ligne 650 en: 

-650sc=400 pour le tableau 02 
-650sc=820 pour le tableau 03 
-650 sc= 1280 pour le tableau 04 
-650 sc= 1640 pour le tableau 05 
-650 sc=2120 pour le tableau 06 
-650 sc=2840 pour le tableau 07 
-650 sc=32O0 pour le tableau 08 
-650 sc=3760 pour le tableau 09 
-650 sc=4240 pour le tableau 10 
-650 sc=4600 pour le tableau 1 1 
-650 sc=4990 pour le tableau 12 
-650 sc=5430 pour le tableau 13 
-650 sc=5960 pour le tableau 14 
-650 sc=6440 pour le tableau 1 5 

- Pour voir les différents tableaux en 
jouant au joystick, faire comme précé- 
demment mais au lieu de modifier la li- 
gne 650, ce sera la ligne 830. 



PS : Pour lister le fichier TMC.PRG, 
faire LOAD'TMC.PRG" puis supprimer 
la ligne 140 car elle empêche le BREAK 
etleCTRL-SHIFT-ESC. 

LE JEU: 

THE MONSTER'S CASTLE est un 
casse-brique. Au début de la partie, après 
avoir choisi soit le clavier ou soit îc joys- 
tick, vous avez 4 vies cl 100 % d'éner- 
gie. Avant de lancer votre balle, vous 
pouvez déplacer votre batte et lorsque 
vous vous serez placé, vous appuierez sur 
le boulon de tir et la balle partira dans la 
direction de votre dernier déplacement. 

Les différentes briques sont les suivan- 
tes : 

-les briques rouges et blanches qui 
se détruisent et qui valent 10 points 

- les briques grises et blanches en 
forme de briques (!) qui sont indestruc- 
tibles 

- les briques grises et blanches qui 
bougent et qui sont indestructibles 

- les briques grises et blanches for- 
mées de quatre triangles qui retirent 5 % 
au niveau d'énergie et qui sont indestruc- 
tibles 

Lorsque votre niveau d'énergie est à 
0, inutile de vous dire que vous perdez 
une vie. Tout les trois tableaux vous 
gagnez une vie supplémentaire et tout les 
deux tableaux vous avez le plein d'éner- 
gie. Lorsque vous avez détruit toutes les 
briques du tableau, un passage se crée 
en haut de l'écran. Une fois passé dans 
ce trou, vous irez au tableau suivant. A 
partir du deuxième tableau, le trou en bas 
du tableau est rétréci par des barres de 
briques qui retirent 5 % au niveau d'éner- 
gie, cela pourra vous rendre service, mais 
attention à votre niveau d'énergie. 





TMC-BAS 



10 CLS >«B 

20 «ODE >BD 

30 INK 0,0: INK 1,7: INK 2, 16: INK 3,1 >TH 
:INK 4,24: INK S, 26: INK 6, 12: INK 7,1 
3: INK 8, 3: INK 9, 10: INK 10,14:BORDER 


40 LOAD-THC.SCR" >U> 

45 CLEAR INPUT >DH 

50 READ a >CE 

60 IF a=-l THEN RESTORE 220:G0T0 50 >BE 

70 SOUND 1, a, 35, 15 >HH 

80 IF 1NKEY$=CHRI(32) THEN 110 >XA 

90 IF INKEY(76)=0 THEN 110 >TN 

100 GOTO 50 >RC 

110 b=15 >UH 

120 b=b-l >BF 

130 IF b=-l THEN 180 >HR 

140 READ a >JA 

150 IF a=-l THEN RESTORE 220:G0T0 1 )DP 
40 

160 SOUND l,a,35.b >NU 

170 GOTO 120 >YH 

180 FOR c=l TO 26 >CC 

190 LOCATE 20 ) 25:PRINT• " >UE 

200 NEXT >DH 

210 RUN'THC.PRG" >LH 
220 DATA 95,95,142,127,119,106,95,9 >GH 
5, 119,95,95, 119,95,95, 142, 119, 142, 1 
79,119,142,142,106,119,127,-1 




FM-BAS 



10 ■ 

20 ' PRESENTATION 

30 ' 

40 OS:H0DE 



>LA 
>LB 
>IX 



50 INK 0,O:INK 1,7: INK 2,16:INK 3,1 >TP 
: INK 4,24: INK 5,26: INK 6, 12: INK 7,1 
3: INK 8,3: INK 9, 10: INK 10,14:BÛRDER 


60 FOR a=0 TO 639 STEP 3::PL0T a,0, >ZT 
6:DRAV a. 130:NEXT:a=0 
70 x=CINT(RND«639) >NN 



80 y=CINT(RNDi399> 


MM 


90 IF y<132 THEN 80 


>HG 


100 PLOT i,y,5 


>VE 


110 a=a«l 


>BA 


120 IF a = 100 THEN 140 


>NC 


130 GOTO 70 


>RH 



140 FOR a=169 TO 469 STEP 3:PL0T a, >YT 
80,7:DRAU a,240:NEXT 
150 FOR a=80 TO 290 STEP 2:PL0T 69, >XX 
a,7:DRAW 169,a:NEXT 

160 FOR a=80 TO 290 STEP 2:PL0T 469 )ÏJ 
,a,7:DRAU 569,a:NEXT 
170 PLOT 173,80,0:DRAW 173,240:PL0T >ZD 
465, 80,0: DRAW 465,240 
180 a=90:b=4S0 >PD 

190 DEG >RG 

200 HOVE 319,160 >BC 

210 PLOT 319*S0«C0SU),160«S0«SIN(a >EE 
),8 

220 DRAW 319«50iCOS(b),160*SO»SIN(b >CR 
) 

230 a=a«2:b=b-2 >XF 

240 IF a=180 AND b=J60 THEN 260 >WZ 
250 GOTO 200 >YF 

260 FOR a=160 TO 80 STEP -2 >TF 
270 PLOT 269,a,8:DRAU 369,a:NEXT >AX 
280 FOR a =240 TO 260 STEP 2: PLOT 18 )ZU 
9, a, 7: DRAW 209, a: NEXT 
290 FOR a=240 TO 260 STEP 2:PL0T 22 >ZU 
9,a,7:DRAV 249,a:NEXT 
300 FOR a=240 TO 260 STEP 2:PL0T 26 >ZU 
9,a,7:DRAV 289,a:NEXT 
310 FOR a=240 TO 260 STEP 2:PL0T 30 )ZJ 
9,a,7:DRAM 329,a:NEXT 
320 FOR a=240 TO 260 STEP 2:PL0T 34 )ZU 
9,a,7:DRAV 369,a:NEXT 
330 FOR a=240 TO 260 STEP 2:PL0T 38 )ZU 
9,a,7:DRAM 409,a:NEXT 
340 FOR a=240 TO 260 STEP 2: PLOT 42 >ZU 
9,a,7:DRAW 449, a: NEXT 
350 FOR a=290 TO 310 STEP 2:PL0T 69 >XP 
,a,7:DRAW 89,a:NEXT 

360 FOR a=290 TO 310 STEP 2:PL0T 10 )ZL 
9,a,7:DRAV 129,a:NEXT 
370 FOR a=290 TO 310 STEP 2:PL0T 14 >ZU 
9,a,7:DRAV 169,a:NEXT 
380 FOR a=290 TO 310 STEP 2:PL0T 46 >ZH 
9,a,7:DRAW 489,a:NEXT 
390 FOR a=290 TO 310 STEP 2:PL0T 50 )ZY 
9,a,7:DRAU 529,a:NEXT 
400 FOR a=290 TO 310 STEP 2:PL0T 54 >ZY 
9,a,7:DRAW 569,a:NEXT 
410 a=90:b=4S0 >NK 

420 HOVE 319, 160 >BG 

430 PLOT 319«50iCOS(a),160iSO»SIN(a )EA 
),Û 
440 DRAW 319«50iCOS(b),160«50«SIN(b >CU 



) 

450 a=a«25:b=b-25 >LR 

460 IF a=165 AND b=375 THEN 480 >WT 

470 GOTO 420 >ZD 

480 a=155:b=385 >U 

490 HOVE 319, 160 >CD 

500 PLOT 319*50iCOS(a),160«50tSINla >EY 
),0 

510 DRAW 319«50iC0S(b),160*S0iSIN(b >CU 
) 

520 a=a»15:b=b-15 >LH 

530 IF a=185 AND b=355 THEN 550 >WN 

540 GOTO 490 >ZJ 

550 FOR a=155 TO 80 STEP -15:PL0T 2 >AE 
69,a,0:DRAU 369,a:NEXT 
560 FOR a=240 TO 340:PL0T 263,a,7:D >RV 
RAU 379,a:NEXT 

570 PLOT 259,242,0:DRAVR 10,0:DRAUR )JZ 
0,20:DRAUR 20,0:DRAUR 0,-20:DRAUR 
20,0:DRAUR 0,20:DRAWR 20,0:DRAUR 0, 
-20:DRAyR 20,0:DRAWR 0,20:DRAUR 20, 
0:DRAUR 0,-2Û:DRAUR 10,0 
580 FOR a=340 TO 360 STEP 2:PL0T 26 >ZU 
3,a,7:DRAU 2B3,a:NEXT 
590 FOR a=340 TO 360 STEP 2: PLOT 30 >ZX 
9,a,7:DRAV 329,a:NEXT 
600 FOR a=340 TO 360 STEP 2:PL0T 35 >ZZ 
9, a, 7: DRAW 379, a: NEXT 
610 PLOT 99,250,0:DRAU 99,210:PL0T >VQ 
103,250:DRAy 103,210:PLOT 139,170:D 
RAU 139,130:PL0T 143,170:DRAU 143,1 
30 

620 PLOT 499,2S0,0:DRAU 499,210:PL0 >ZB 
T 503,250:DRAV 503,21O:PL0T 539,170 
:DRAU S39,130:PL0T 543,170:DRAU 543 
,130 

630 a=90:b=450 >PD 

640 HOVE 296,320:PL0T 296«5iC0S(a), )AE 
320«5tSIN(a),0:DRAW 296«5iC0S(b),32 
0t5»SIN(b):a=a»2:b=b-2 
650 IF aM60 AND b=36Û THEN 670 >UK 

660 GOTO 640 >U 

670 F08 a=320 TO 290 STEP -2:PL0T 1 >AC 
91,d,u:0RAV 3U1,«:N£XT 
680 a=90:b=4S0 >PJ 

690 HOVE 344,320:PL0T 344»5iC0S(a), >AQ 
320<5iSIN(a),0:DRAV 344«5iC0S(b),32 
0«5«SIN(b):a=a»2:b=b-2 
700 IF a = 180 AND b"-360 THEN 720 >UB 

710 GOTO 690 >ZK 

720 FOR a=320 TO 290 STEP -2:PL0T 3 >AP 
39,a,0:DRAV 349,a:NEXT 
730 GOSUB 1920 >QD 

740 trtll=CHRI(169)4CHR$(171)»CHRt( >EL 
173)«CHR»(32)*CHR»(175)*CHR»(177)«C 
HR*(179)iCHR»(181)tCHRI(169)tCHR»(l 
73)«CHR»(183)«CHRI(185)«CHR»(1B1)«C 
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HB»(32MCHR$(186)tCHR»(188MCHR»(18 
lHCHR»(169)tCHR»(190)»CHR»(l/3) 
750 trt2$=CHR»(170HCHR«(172)*CHR»< >BG 
174)+CHH*(32)*CHRI(176)4CHR«(178)tC 
HR«(180)*CHRt<182)»CHR»<170)»CHRI<l 
74)«CHRt(184)«CHRt(32J«CHR»(182)tCH 
RI(32HCHR$(187MCHRIU89MCHR»1182 
HCHR»(170)*CHR»(19inCHR*(17*) 
760 PEN 10:PAPER 0:L0CATE 1,1:PRINT 
trtl» 

770 LOCATE 1,2:PRIHT trt2» 
780 PLOT 571,62,1: DRAW 575,62, 1:DRA 

V SB3,62,2:DRAU 587.62,1 
790 PLOT S71,60,1:DRAU 575,60, 1:DRA 
y 583,60, 2:DRAU 587.60,1 
800 PLOT S67,S8,3:DRAU 575,S8,3:DRA 
y 579,58, 1:DRAU 591,58,2:DRAU 599,5 
8,1 

810 PLÛT 567,56,3:DRAU 575,56, 3:DRA 
y 579,56, 1:DRAM 591,56,2:DRAU 599,5 
6,1 
820 PLOT 563,54, 3:DRAU 567.54.3:DRA 

V 575,S4,5:DRAU 627,54.3 
830 PLOT 563,52,3:DRAU 567,S2,3:DRA 

V 57S,52,5:DRAU 627.52.3 
840 PLOT SS9.50.1:DRAW 563,50, 1:DRA 
U 575,50,5:DRAU 587.50.3:DRAW 595,5 
0,4:DRAU 611,50,3 

850 PLOT 559,48.1:DRAU 563,48. 1:DRA 
U 575,48,5:DRAy 587.48, 3:DRAU 595,4 
B,4:DRAy 611,48,3 
860 PLOT 623,5Û.3:DRAW 631,50,3 
870 PLOT 623,48,3:DRAy 631,48.3 
880 PLOT 559,46, l:DRAy 563,46,1:DRA 

V 567,46,5:DRAU 571.46. 3: DRAU 575,4 
6,5:DRAV 583,46, 1 : DRAW 587,46,2:DRA 
U 595,46, 4:DRAU 603,46, 1:DRAW 635.4 
6,3 

890 PLOT 559,44, 1:DRAW 563,44, l.-DRA 
U 567,44,5:DRAU 571 , 44, 3: DRAW 575,4 
4,5:DRAU S83,44,1:DRAU 58"7,44,2:DRA 

V 595,44,4:0RAU 603,44, 1:DRAW 635,4 
4,3 

900 PLOT S51,42,4:DRAU 559,42,4:DRA 
U 563,42, 1:DRAV 567,42,5:DRAW 571,4 
2,3:DRAW 575,42,5:DRAW 583,42, 1:DRA 
U 587,42,2:0RAU 591.42. 1:0RAU 595.4 
2,4:DRAU 603.42. 1 : PLÛT 619,42.3:DRA 
U 623,42.3:PL0T 631 . 42. 3: DRAW 639,4 
2,3 

910 PLOT 551,4O,4:0RAU 559,40,4:DRA ;EG 
U 563,40, 1:DRAW 567. 40. 5 : DRAW 571,4 
0,3:DRAW 575. 40. 5 : DRAW 583.40. 1 : DRA 
U 587,40,2:DRAU 591,40, 1:DRAU 595,4 
0,4:DRAW 603, 40, 1:PL0T 619,40,3:DRA 
U 623,40, 3:PL0T 631,40,3:DRAW 639,4 
0,3 



>JU 

m 

>CM 
)CE 

)VD 



>VU 



>cu 



.'CL 



>PN 



>PK 



>XU 

>YB 
>NF 



.NU 



)FE 



920 PLOT 547,38,4:DRAW 551,38,4:DRA >ZV 
y 559,38,3:DRAU 571 . 36, 4 : DRAW 575,3 
8,5:DRAU 587,38, 1:DRAU 591,38,2:DRA 
U 595,38, 1:DRAW 599,38, 2:DRAW 603,3 
8,1:PL0T 619,38,3:DRAW 623,36,3 
930 PLOT S47,36,4:DRAU 55l,36,4:DRA >ZV 
y 559,36, 3:DRAU 571 , 36, 4 : DRAW 575,3 
6.5:DRAW 587,36, 1:D8AV 591,36,2:DRA 

V 595, 36,1: DRAW 599,36,2:DRAW 603,3 
6,1:PL0T 619,36. 3:0RAW 623,36,3 

940 PLOT 543,34,4:DRAU 583,34, 4:DRA >LC 

y 591,34, 1:0RAV 599,34,2:DRAW 603,3 

4,1:PL0T 619,34, 3: DRAW 627,34,3 

950 PLOT 543,32,4:DRAW 583.32.4:DRA )LN 

U 591,32. 1:DRAW 599, 32. 2: DRAW 603,3 

2.1.-PL0T 619,32,3:DRAW 627,32,3 

960 PLOT 539,30,4:DRAU S87,30,4:DRA )LH 

V 595,30,1. -DRAW 599,30, 2:DRAW 603,3 
0,1:PLOT 623.30.3:DRAW 627.30.3 

970 PLOT 539,28,4:DRAW 587,28, 4:DRA ;LM 
W 595,28. 1:DRAW 599, 28. 2:DRAW 603,2 
8,1. -PLOT 623,28.3:DRAy 627,28,3 
980 PLOT 535,26,4:DRAy 571,26,4:DRA )VU 

V 575,26, 3:DRAV 587,26, 4:0RAV 603,2 
6,1 

990 PLOT 535,24,4:DRAy 571,24,4:DRA >VJ 

V 575,24,3:DRAW 587, 24, 4 :DRAW 603,2 
*,1 

1000 PLOT 531,22,3:DRAW 547,22,3:DR >LÏ 
AW 559.22, 4: DRAW 571 , 22. 3: DRAW 575, 
22,4:DRAW 579,22.3:DRAW 567,22,4:DR 
AU 599,22,1 

1010 PLOT 531,20,3:DRAW 547,20,3:DR >LG 
AW 559.20,4:DRAW 571,20,3:DRAW 575, 
20,4:DRAU 579,20, 3:DRAW 587,20,4:DR 
AU 599,20,1 

1020 PLOT 531,18,4:DRAU 547,18,4:DR >QX 
AU 559, 16, 3: DRAW 587. 18.4:DRAU 595, 
18,1:DRAU 599,16,2 

1030 PLOT 531,16,4:DRAW 547,16,4:DR >QK 
AU 559,16, 3:DRAU 587, 16,4:DRAU 59S, 
16,1:DRAW 599,16,2 

1040 PLOT 531,14,4:DRAU 5B3,14,4:DR >CA 
AU 5B7. 14, 1 .DRAW 591,14,2 
1050 PLOT 531,12,4:DRAW 583,12,4:DR >CT 
AU 587.12, 1:DRAW 591,12,2 
1060 PLOT 535,10,4:DRAU 579,1Û,4:DR >CU 
AU 583,10, 1: DRAW 587,10,2 
1070 PLOT 535,8, 4.-DRAW 579,8,4:DRAW >YF 
583,8, 1:DRAW 587.8.2 
1080 PLOT 539,6, 4:DRAW 575,6, 4:DRAW >YX 
579,6, 1:DRAW 581,6,2 
1090 PLOT 539,4,4:DRAU 575,4,4:DRAW >YP 
579,4, 1:DRAU 581,4,2 
1100 PLOT 547,2,4:DRAU 571,2,4:DRAU >JG 
577,2,1 
I 1110 PLOT 547,0,4:DRAU 571,0.4:DRAW >JB 



577,0,1 
1120 ' 
1130 ' F 

1140 ' 

1150 PLOT 0, 

5:PL0T 8,26: 

1160 PLOT 8, 

2: PLOT 28,41 

1170 PLOT 4, 

3:PL0T 4,24 

1180 PLOT 0, 

:DRAU 30,45 

1190 ' 

1200 ' L 

1210 ' 

1220 PLOT 69 

45 

1230 PLOT 69 



0, 1:DRAW 0,45:DRAW 30.4 

DRAU 20,26 

0, 1:DRAW 6,22:DfiAU 22,2 

:DRAW 8.41:DRAW 8,26 

0,2:DRAU 4,43:D8AU 28,4 

DRAU 22,24 

0,1:DRAU 8,0: PLÛT 30,41 

PLOT 22,22:DRAU 22,26 



,0,1:DRAU 39,0:DRAU 39, 
4:DRAU 47,4:DRAW 47.45 



>XG 
>XH 

>\i 
>ZD 

)HH 

)AD 

>HY 

>YD 
>XF 
>XG 

>DA 



1240 PLOT 69,2,2:DRAU 43,2:DRAU 43, >DX 

45 

1250 PLOT 69,0,1:DRAU 69.4:PL0T 39, >PE 

45: DRAU 47,45 

1260 ' >YB 

1270 ' Y >YC 

1280 ' >YD 

1290 PLOT 71.45. 1:DRAW 83,21:DRAU 8 >RH 

3.0:PL0T 91.0:DRAU 91.21:DRAU 102.4 

5 

1300 PLOT 79,45:DRAW 87.25:DRAU 94, >DB 

45 

1310 PLOT 87,0,2:DRAU 87,20:DRAW 75 >DL 

,45:PL0T 87,20:DRAU 98,45 

1320 PLOT 83,0,1:DRAU 91.0:PLOT 71, 

45:DRAU 79,45:PL0T 94.45:DRAU 102,4 

5 

1330 ' 

1340 ' I 

1350 ' 

1360 PLOT 111.0, 1:DRAU 141.0:PLOT 1 )PC 

11,4:DRAU 122.4.-DRAU 122,41:DRAU U 

1,41:PL0T 141,4:DRAU 131.4.-DRAW 130 

,41:DRAU 141.41:PL0T 1U,45:DRAU 14 

1,45 

1370 PLOT 111,2,2:DRAU 141,2:PL0T 1 >XH 

26.2:DRAU 126,43:PL0T 1U.43:DRAU 1 

41,43 

1380 PLOT U1,0,1:DRAU 111,4:PL0T 1 >FJ 

41,0:DRAU 141,4:PL0T 1U,41:DRAU 11 

1,45:PL0T 141,41:DRAU 141.45 

1390 ' 

1400 ' H 

1410 ' 

1420 PLOT 149.0, 1:0RAU H9.4b:l*AU 

159,45:DRAU 168,6:DRAtl l69,45:PLOT 

157,Ù:DRAU tb/.J;:l*AW 1/1.0:MAU 1 

79,0:DRAU 179,45 



>TM 



>XK 
)YA 
)YB 



>YF 
>XH 
>XJ 
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1430 PLOT 153,0,2:DRAU 153,43:DRAy )UJ 

I7S,2:DRAW 175,45 

1440 PLOT 149.0,1:D8AW 157,0:PL0T 1 >UN 

71,45:DRAU 179,45 

1450 ' >YC 

1460 ' G >ÏD 

1470 ' >ÏE 

1480 PLOT 186,0,1:DRAU 166,45:DRAU >PC 

216,45:PL0T 1B6.0:DRAW 216.0:0RAU 2 

16,25:DRAU 204,25 

1490 PLOT 21b,41:DRAW 194,41:DRAV 1 M 

94,4:0RAy 206.4:DRAW 208.21:DRAW 20 

4,21 

1500 PLOT 216,43.2:DRAU 190,43:DRAy >YZ 

190.2:DRAy 212,2:DRAU 212,23:DRAU 
204,23 
1510 PLOT 216.41, l:DRAy 216,45:PL0T >yQ 

204,21 :DRAV 204,25 

1520 ' >YA 

1530 ' H >YB 

1540 ■ >YC 

1550 PLOT 249,0,1: DRAW 249.45:DRAV >QM 
257,45:DRAy 265,24:DRAU 272,45:DRAV 

280,45:DRAU 280,0 

1560 PLOT 257,0:DRAy 257.41:DRAW 26 )FF 
5,18:DRAy 272,41:DRAU 272,0 
1570 PLOT 253,0. 2:DRAy 253.43:D8Ay >HÏ 
265,22:DRAy 276,43:DRAy 276,0 
1580 ' >YG 

1590 ' >YH 

1600 ' >XK 

1610 PLOT 288,0, 1:DRAU 31B,Û:DRAH 3 >RT 
18.45:DRAV 2BB,4S:DRAW 288.0:PL0T 2 
96,4:DRAy 310,4:DRAU 310,41:DRAV 29 
6, 41: DRAM 296,4:PL0T 292. 2. 2 : DRAW 3 
14.2:DRAU 314,43:DRAU 292,43:DRAV 2 
92,2 

1620 ' )YB 

1630 ' I >YC 

1640 ' >YD 

1650 PLOT 324.0. 1:MAV 324,45:DRA« >VD 
332,45:DRAy 346.8:DRAW 346,45:PL0T 
332.0:DRAV 332.3 7 :DRAU 346,0:DRAU 3 
54,0:DRAU 354,45 

1660 PLOT 328,2,2:DRAy 328,43:D8AW >UH 
350,2:DRAU 350,43 

1670 PLOT 324,0, 1:DRAW 332,0:PL0T 3 >UG 
46,45:DRAU 354,45 

1680 ' >YH 

1690 ' K )YJ 

1700 ' )YA 

1710 PLOT 362,0, 1:DRAU 362.45:DRAW >RL 
370,45:DRAV 370,25:DRAV 384.45:DRAU 

392,45:DRAW 376,22:DRAy 392.0:DRAU 

384,0:0RAy 370,19:DRAW 3?0,0:DRAU 
362,0 
1720 PLOT 366,2,2:DRAy 366,43:PL0T >0Y 



372,22:DRAy 388,43:PL0T 370,22:DRAy 
388,43:PL0T 370,22:DRAU 388,2:PL0T 
372,23:DRAy 388,2:PL0T 370,21:DRAy 
38B,2:PL0T 386,4:PL0T 386,41:PL0T 

380,37,2 

1730 ' >YD 

1740 ' E >YE 

1750 ' >YF 

1760 PLOT 402,0, 1:DRAU 432,0:DRAy 4 >ÛK 

32,4:DRAy 410,4:DRAV 410,20:DRAV 42 

0,20:DRAU 420,24:DRAy 410,24:DRAy 4 

10,41:DSAy 432,41:DRAV 432.45:DRAy 

402,45:DRAU 402,0 

1770 PLOT 42B,2.2:DRAU 406,2:DRAV 4 >U 

06,43:DRAU 428,43:PL0T 406,22:DRAV 

416,22 

1780 ' 

1790 ' Y 

1800 ' 

1810 PLOT 441,45, 1 j DRAW 453,21:DRAy >ZH 
453.0:PL0T 461.0:DRAU 461,21:DRAU 

472,45 

1820 PLOT 449,45:DRAU 457,2b:DRAU 4 

64,45 

1830 PLOT 457,0,2:DRAy 457.20:DRAy 

445.45.-PL0T 457.20:DRAy 468.45 

1840 PLOT 453,0, 1:DRAU 461,0:PL0T 4 >ZF 

41,45:0RAV 449, 45: PLOT 464, 45: DRAW 

472,45 

1850 ' 

1860 ' S 

1870 ' 

1880 PLOT 482,0, 1:DRAU S12,0:DRAU 5 

12,24:DRAV 490.24:DRAW 490.41:DRAy 

512,41:DRAU 512,4S:0RAy 482,45:DRAU 
482,20:DRAy 504,20:DRAV 504,4:DRAU 
482,4:DRAV 482,0 

1890 PLOT 486,2,2:DRAV 508,2:DRAy 5 )ZH 

08,22:DRAV 486.22:DRAU 466.43:DRAV 

508.43 

1900 SAVE'THC.SCR'.b.fcCOOO, 44000 >ZQ 

1910 GOTO 1910 >MK 

1920 SYMBOL AFTER 169 >QA 

1930 SYMBOL 169,0.126,126.90.90,24, >F0 

24,2* 

1940 SYMBOL 170.24,24,24,24,24,60,6 >0t 

0,0 

1950 SYMBOL 171,0,102,102,102,102,1 >KQ 

02,102,126 

1960 SYMBOL 172,126,102.102,102.102 >KT 

,102,102,0 

1970 SYMBOL 173,0,254,254,98,98,104 >JY 

,104,120 

1980 SYMBOL 174,120,104,104,98,98,2 )JA 

54,254,0 

1990 SYMBOL 175,0,198,198,238,238,2 >LP 

54,254,254 



>TJ 
>ÏK 

>ÏB 



>GR 



)KP 



)ÏH 
>ÏJ 

>K 



2000 SYHBOL 

,198,198,0 

2010 SYMBOL 

,198,198 

2020 SYMBOL 

,56,56,0 

2030 SYHBOL 

46,246,222 

2040 SYHBOL 

,198,198,0 

2050 SYHBOL 

96,60 

2060 SYMBOL 

0,0 

2070 SYMBOL 

02,102,124 

2080 SYHBOL 

,226,226,0 

2090 SYHBOL 

,0 

2100 SYMBOL 

, 192, 192 

2110 SYMBOL 

,60,60,0 

2120 SYMBOL 

02, 102 

2130 SYMBOL 

,102,102,0 

2140 SYHBOL 

2150 SYHBOL 
4,254,0 
2160 RETURK 



176,254,214,214,198,196 >LZ 

177,0,56,56,108,108,198 )JP 

178.198,198,198,106,108 )JR 

179,0,198,196.230,230.2 )LH 

180.222.206.206,198.198 >IV 

181,0,60,60,102,102,96, >FC 

182,60,6,6,102,102,60,6 >DH 

183,0,252,252,102,102,1 >KY 

184,124,108,108,102,102 )LG 

185,0,24,24,24,24,48,48 >CX 

186,0,60,60,102,102,192 >JV 

187,192,192,192,102,102 )JY 

188,0,24,24,60,60,102,1 )GY 

189,102.126,126,102,102 )Kl 

190.0,240,240.96.96.96, )FN 

191,96,98,98,102.102,25 )HG 



TMC-PRG 

10 ' IHlHIflIltilMlllIHMIMI 

20 ' •• h 

30 ' •• THE MOHSTER'S CASTLE « 
40 ' it il 

50 ' t« BY ti 
60 ' il il 

70 ' u FREDERIC DUPUIS » 
80 ' h ii 

90 ' » AND u 
100 'u u 

110 'il CYRIL CAUCHOIS II 
120 '•• ii 

130 'iiiiiiiiiiiiiiiiiiiiniiiin 
140 KEY DEF 66,0,0,0,0:P0KE S.BOEE, 
C9 

150 DIH sc(U),nit(U),letr»(6) 
160 l(t»=CHR*(242):rgt»=CHR$(243): 
ir<=CHR«(32):ps$=CHR»(13) 
170 CLS:M0DE 1 



)LA 
>LB 
>LC 
)LD 
>LE 
>LF 
>LG 
>LH 
)U 
>RB 
>RC 
>RD 
>RE 
k >CB 

>YY 
f )GG 

>UG 
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180 SPEED KEY 10,1 )LW 

190 1NK 0,0:1NK 1,20: INK 2,2: 1HK 3, >MF 

14: BORDER 

200 GOSUB 6020 >PB 

210 trtl*=CHRK169MCHRK171)*CHRK >EC 

173 ) *CHR* < 32 ) +CHR* ( 1 75 ) +CH8* ( 1 77 ) *C 

HR»(179)*CHRK1B1MCHRK169hCHR»U 

73HCHRK 183) «CHRK 185 HCHRK1B1HC 

H8K32) «CHRK 186) «CHRK 188) «CHRK 18 

1HCHRK 169) *CHRK 190) «CHRK 173) 

220 trt2»=CHRK170MCHRK172)«CHRK >BY 

174MCHRK32HCHRK176HCHRK178HC 

HRK18O)»CHRK182hCHRK170hCHRK1 

74HCHRK184MCHRK32HCHRK182HCH 

RK32MCHRK1B7MCHRK189MCHRK182 

) «CHRK 170HCHRK 191 HCHRK 174) 

230 PEN 2:PAPER U:LUCAÎE IU.5:PRINT >JT 

Util 

240 LUCATE 10,6:PRINT trt2$ )V\i 

250 LOCATE 12,10:PEN 1:PRINT "l.KEY >JD 
BOARD' 

260 LOCATE 12,12:PEN 1:PRINT "2.J0Y >KH 
STICK" 

270 LOCATE 12,14:PEN 1:PRINT "3. RED >QL 
EFINE KEYS" 

280 LOCATE 12,16:PEN 1:PRINT "4.SEE >TW 

HIGH SCORES" 

290 LOCATE 2,24:PEN 3:PRINT "PROGRA >VM 
HHING AND GRAPHICS BY F8ED 1 BOB" 

300 LOCATE 7,2S:PRINT "HOSIC ADAPTE >XR 
D BY FRED k BOB* 

310 CLEAR INPUT >LP 

320 rMINKEYKIF rl=" THEM 320 >XD 

330 IF r$="l" THEM GOTO 610 )TX 

340 IF r$="2" THEN GOTO 790 )TJ 

350 IF r»="3" THEM GOTO 440 >TC 

360 IF r$="4" THEN sc=0:GOTO 2240 >ZT 

370 IF rKfir» THEN 610 >QY 

380 IF INKEYC76)=0 THEN 790 >UZ 

390 IF INKEY<64)=0 THEN 610 >UM 

400 IF INKEY<65)=0 THEN 790 )UP 

410 IF INKEY(57)=0 THEN 440 >UH 

420 IF INKEY(56>=0 THEN sc=0:GOTO 2 >EQ 
240 

430 GOTO 320 )YJ 

440 SPEED KEY 100,100 >NZ 

450 CLS:LOCATE 12, 12:PRINT"LEFT" >BE 

460 r$=INKEY*:IF »♦="" THEN 460 >XP 

470 lft$=r* )XC 

480 LOCATE 12,12:PRINT"RIGHT" >YU 

490 r»=INKEYKIF r»=" THEN 490 >XU 

500 rjtl=r» >XD 

510 LOCATE 12, 12:PRINT"FIRE " >YB 

520 rl=!NKEY»:!F tU" THES 520 ;XH 

530 flr«=r» >UE 

540 LOCATE 12,12:PRINT"PAUSED" >ZN 

550 rKINKEYKIF r»=" THEN 550 >XP 



-* .-."-■ J*a 


^ 




560 ps*=r» 




>NE 


570 GOTO 170 




>ZG 


580 ' 




>TD 


590 ' LE CLAVIER 




>TE 


600 ' 




>RG 


610 DEFINT a-z:SPEED KEY 1,1 




>UU 


620 RANDOHIZE TIHE 




>NX 


630 CLS 




>us 


640 GOSUB 6020 




>Ht 


650 sc=0 




>« 



660 p=13:pp=24:dx=-l:dy=-l:x=17:y=2 >NX 

3:p«=623 

670 lf=3:lvl=0:jsk=0:GOSUB 2050 >AC 

680 PEN 2:L0CATE 3,1:PRINT "SCORE:" >GK 

;sc 

690 PEN 1:PAPER 2.-LÛCATE xl.yl:PRIN )UK 

T CHRK iv): LOCATE x3,y3:PRINT CHRK 

■v2):PEN 2: PAPER 

700 LOCATE p,pp:PEN 2:PR1NT" ";:PR >DE 

INT CHRK146);:PEN 1:PAPER 2:PRINT 

CHRK147HCHR$(l48);:PEN 2:PAPES 0: 

PRINT CHRK 1511 i:PRINT" ": LOCATE « 

,y:PRINT CHRK14S) 

710 r»=INKEYKIF r*="" THEN 710 >XK 

720 IF r*=lft» THEN x=x-2:dx=-l:dy= >EM 

-l:p=p-2:L0CATE x«2,y:PRINT" ":1F p 

=p»-2 THEN p=p*2:x=x*2:G0T0 700 ELS 

E 700 

730 IF r»=rgt* THEN x=x*2:dx=l:dy=l >BC 

:p=p»2:L0CATE i-2,y:PfilNT" ":1F p=p 

y*2 THEN p=p-2:x=i-2:GOT0 700 ELSE 

700 

740 IF r»=fir» THEN GOTO 960 JVC 

750 GOTO 710 >ZG 

760 ' >TD 

770 ' LE JOYSTICK >TE 

780 ' >TF 

790 DEFINT a-z:SPEED KEY 1,1 )«D 

800 RANDOHIZE TIHE NX 

810 CLS >UD 

820 GOSUB 6020 >PK 

830 sc=0 >YG 

840 p=13:pp=24:dx=-l:dy=-l:x=17:y=2 >NX 

3: pu =623 

850 lf=3:lvl=0:jsk=l:G0SUB 2050 >AD 

860 PEN 2:L0CATE 3,1:PRINT "SCORE:" >GK 

;sc 

870 PEN 1: PAPER 2:L0CATE xl,yl:PRIN >UK 

T CHRK iv): LOCATE i3,y3:PRINT CHRK 

•v2):PEN 2:PAPER 

880 LOCATE p,pp:PEN 2:PRINT" "::PR )DP 

INT CHRK146);:PEN 1:PAPER 2:PRINT 

CHRK147)»CHRK148);:PEN 2:PAPER 0: 

PRINT CHRK 151); :PRINT" »! LOCATE x 

,y:PRINT CHRK145) 

890 IF INKEY(74)=0 THEN x=i-2:di=-l )LV 

:dy=-l:p=p-2:L0CATE x«2,y:PRINT" ": 



IF p=px-2 THEN p=p»2:x=x»2:G0T0 860 

ELSE 880 
900 IF INKEY175) =0 THEN x=x*2:dx=l: >HK 
dy=l:p=p«2:L0CATE i-2,y:PRINT" ":1F 

p=py»2 THEN p=p-2:x=x-2:G0T0 880 E 
LSE 880 

910 IF INKEY(76)=0 THEN GOTO 960 >ZA 
920 GOTO 880 )AD 

930 ' )TC 

940 ' LE JEU >TD 

950 ' )TE 

960 IF jsk=l THEN 990 >NG 

970 a»=INKEYKp=p»2t(aKlft» AND p> >DP 
px)-2«(aKrgti AND p<py> 
980 GOTO 1010 >FG 

990 IF INKEY(?4)=U AND p>px THEN p= )EH 
p-2 

1000 IF INKEY<75)=0 AND p(py THEN p )FR 
*p»2 

1010 LOCATE p,pp:PEN 2:PRINT" ";:P >XH 
RINT CHR*(146)::PEN 1:PAPER 2:PRINT 

CHRK147)4CHRK148);:PEN 2:PAPER 
:PRINT CHRK151);:PRINT" ■ 
1020 IF INKEYKpst THEN 1030 ELSE 1 >DL 
040 

1030 LOCATE x,y:PRINT CHRK14S):IF >HX 
INKEYK" THEN 1030 ELSE 1040 
1040 c=TEST((i*dxH16-8,408y«16):l >XZ 
F cOO THEN SOUND l,200,l:dx=-dx:IF 

c=2 THEN SOUND 1, 100,1 :p«=p«-5 ELS 
E IF c=3 THEN SOUND 1,50.1:L0CATE x 
-dx,y:PRINT" ":sc=sc*10: j=j-l 
1050 c=TEST(x«16-8,408-(y*dy)«16):l )RT 
F cOO THEN SOUND l,200,l:dy=-dy: IF 

c=2 THEN SOUND 1, 100, l:p«=pw-5 ELS 
E IF c=3 THEN SOUND 1,50,1: LOCATE i 
,y-dy:PRINT" ":sc=sc«10: 1 = j - 1 : GOTO 
1040 aSE 1040 

1060 c=TEST(lx*dx)il6-8,408-(y»dy>» )NQ 
16) :1F cOO THEN SOUND 1, 200,1 :dy=- 
dy:IF c=2 THEN SOUND 1. 100,1 :p«=pw- 
5 ELSE IF c=3 THEN SOUND l,5O,l:L0C 
ATE x»dx.y-dy:PRINT" *:sc=sc+10: ) = J 
-l:GOT0 1040 ELSE 1040 
1070 IF jsk=l THEN 1100 >QN 

1080 a*= IHKEY*:p=p+2»la»= lit* AND p >EK 
>px)-2Mal=rgt» AND p<py) 
1090 GOTO 1120 >MB 

1100 IF INKEY(74)=0 AND p.'pi THEN p ,>FV 
=p-2 

1110 IF INKEYI75)=0 AND p<.py THEN p >FU 
=p«2 

1120 LOCATE p,pp:PEN 2:PRINT" "::P >XK 
RINT CHRK 146) ;:PEN 1:PAPER 2 : PB I NT 

CHRK 147HCHRK 148) ::PEN 2:PAPER 
:PR1NT CHRK151);:PRINT" " 
1130 IF INKEYKps» THEN 1140 ELSE 1 >DT 
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ISO 

1140 LOCATE x,y:PRINT CHR»(145):IF >HD 

INKEY*="" THEN 1140 ELSE 1150 

1150 LOCATE «,y:P8INT" ' >TG 

1160 IF j=0 THEN GOTO 1960 >TQ 

1170 xl=xl«x2:IF xl=xyl THEH xl=xyl >RQ 

-2«x2:x2=-x2 

1180 IF xl=xy2 THEN xl--xy2-2«x2:x2= )GG 

-i2 

1190 LOCATE xl-x2,yl:PRINT * ":L0CA >R0 

TE xl,yl:PEH 1:PAPER 2:PRINT CHRJli 

H:PEN 2:PAPER 

1200 x3=»3<»4:IF x3=xy3 THEN x3=xy3 >RF 

-2ix4:i4=-«4 

liîu ir *j-*j"* uitH nu-Ajt *■»••.»«•- un 

x4 

1220 LOCATE x3-x4,y3:PRIMT ■ ":L0CA >TH 
TE x3,y3:PEN 1 : PAPER 2:PRIMT CHR»(« 
v2):PEN 2:PAPER 

1230 x=x*dx:y=y«dy >NF 

1240 PLOT 623,326, 0:DRAW p., 326 >YA 

1250 IF pw=523 THEN 1310 >0J 

1260 IF y>24 THEN 1310 >P6 

12Î0 IF y<3 THEN 20SU >NP 

1280 LUCATE x,y:PRINT CHR«(145) >ZZ 

1290 PEN 2:L0CATE 3,1:PRINT "SCORE: >HP 
■;sc 

1300 GOTO 960 >FE 

1310 • >XH 

1320 ' PERDU >XJ 

1330 ' >XK 

1340 ! «=l f -1 >DA 

1350 IF lf=-l THEN 1370 >PN 

1360 GOTO 1380 >HK 

1370 LOCATE 33,1:PRINT"LIFE: 0":GOT >JB 
1390 

1380 LOCATE 33, 1:PR1NT"LIFE:"; Il >BB 

1390 LOCATE p»l.pp:PEN 2:PRINT ■ ": >ZE 
:PRINT CHR»(U6)::PEN 1:PAPER 2:PRI 
NT CHR»U47)»CHR»(148);:PEN 2:PAPER 

0:PR1NT CHR»(151);:PRINT ■ " 

1400 IF lt=-l THEN GOTO 2130 >UZ 

1410 PLOT 523, 326, 2: DRAW 623,326:p«i >XB 
=623:x=p»4:y=pp-l 

1420 IF jsk=0 THEN 680 >PF 

1430 GOTO 860 >FH 

1440 ' >YB 

1450 ' TABLEAU PERMANENT >YC 

1460 • >YD 

1470 HODE 1: 1 NK 0,0: INK 1. 13: INK 2, >HZ 
26: INK 3,6:B0RDER 0:PEN 2:PAPER 

1480 IF nf=l THEN 1550 >PY 

1490 nf=l >EE 

1500 OPENIN "RECORD.DAT" >UT 

1510 FOR k=l TO 10 >LD 

1S20 INPUT t9,sc(k),ni»lk) >UZ 

1S30 NEXT k >VG 



1540 CLOSE IN >HA 

1550 LOCATE 17.1:PRINT "HISCORE:";s >JP 

0(101 

1560 LOCATE 33,1:PRINT "LIFE:": If >BM 

1570 FOR k=2 TO 31 >LP 

1580 PAPER 1:PEN 2:L0CATE k,2:PRINT >NB 
CHR«U49) 

1590 NEXT >LG 

1600 FOR k=2 TO 23 >LJ 

1610 LOCATE 2,k:PRINT CHRK149) >ZU 

1620 NEXT >LA 

1630 FOR k=2 TO 23 >LM 

1640 LOCATE 31,k:PRINT CHRK149I >AB 
1650 NEXT >LD 

1660 LOCATE 13,2:PEN 2:PAPER 1:PRIN >NQ 
T CHR»(211);"CL0SED";CHR«(209> 
1670 PAPER 0:PEN 2:L0CATE 34,4:PRIN >MA 
T'POWER" 

1680 trt3»=CHR»<169)«CHR»(171MCHR* )CP 
(173):trt4»=CHR*(170)*CHR»<172>*CHR 
1(174) 

1690 trtS»=CHR«(17S)»CHR$U77)*CHR» >NH 
1179)*CHR*UBIHCHR»(169)*CHR»U73) 
iCHRtllC3!iCHEt(lG5)iCHR*!181J 
1700 trt6»=CHR»(176MCHR*U7B>*CHR» >LL 
(180HCHR*(182HCHR«(170)«CHR» 11741 
♦ CHR$1184MCHR$(32MCHR$(182) 
1710 trt?«=CHR$(186)»CHR»(168>tCHR» >TA 
(181)*CHR$(169)*CHR*U90)»CHR»(173) 

1720 trt8»=CHR»(187)*CHR»(189>*CHR» >TZ 
(1B2)»CHR$(170)«CHR»(191HCHR»(174) 

1730 LOCATE 35,7:PRINT trt3»:L0CATE >XW 
35,8:PRINT trt4$ 

1740 LOCATE 32,10:PRINT trt5»:L0CAT >ZF 
E 32,11:PRINT trtbl 

1750 LOCATE 33,13:PRINT trt7»:L0CAT >ZV 
E 33,14:PRINT trt8t 

1760 PLOT 518,328, 3:DRAy 622,328:PL >DE 
OT 514,326:DRAW 518,326:PL0T 518.32 
4:DRAY 622,324:PL0T 622,326:DRAW 62 
6,326:PL0T 523, 326. 2: DRAW 623.326 
1770 LOCATE 33,21:PRINT CHR»<164>;" >KT 
1990":L0CATE 33.22:PRINT"FLYING":L0 
CATE 33,23:PRINT"M0NKEYS" 
1780 IF sc=0 THEN 2710 >PB 

1790 IF sc=400 THEN 2780 >0G 
1800 IF sc=820 THEN 2910 >QZ 
1810 IF sc=1280 THEN 3060 >RR 
1820 IF sc=1640 THEN 3290 >RY 
1830 IF sc=2120 THEN 3520 >RN 
1840 IF se =2840 THEN 3660 >RG 
1850 IF sc=3200 THEN 3790 >RA 
1860 IF sc=3760 THEN 3970 >RN 
1870 IF sc=4240 THEN 4190 >RC 
1880 IF sc=4600 THEN 4420 )RZ 



1890 IF sc=4M90 THEN 4610 >RP 

1900 IF sc=5430 THEN 4910 >RY 

1910 IF sc=S960 THEN 5250 >RF 

1920 IF se =6440 THEN 5460 >RD 

1930 ' >YF 

1940 ' OUVERTURE )YG 

1950 ' >YH 

1960 so=225:j=-l >LC 

1970 FOR k=20 TO 13 STEP -1 >TN 
1980 LOCATE k,2:PAPER 0:PRINT" ":S0 )PN 
UND l,so,l 

1990 10*10-25 >QA 

2000 NEXT >KD 

2010 GOTO 960 >FD 

2020 ' >XG 

2030 ' LEVEL >XH 

2040 ' )XJ 
2050 CLS:INK 0,0: INK 1, 13: INK 2,26: >JJ 
INK 3,6:B0RDER 0:PEN 2:PAPER 

2060 IF sc=7380 THEN 5790 )RK 
2070 lvl = lvl*l:LOCATE 16, 12:PRINT"L >QL 
EVEL";lvl 

2080 FOR ti=l TO 2500:NEXT >UD 

2090 GOSUB 1470 >XK 

2100 IF jsk=0 THEN GOTO 680 >UR 

2110 IF jsk=l THEN GOTO 860 >UU 

2120 ' >XH 

2130 ' CANE OVER >XJ 

2140 ' >XK 
2150 SPEED KEY 10,5:PEN 2:L0CATE 14 )UJ 
,11:PRINT" • 

2160 LOCATE 14,12:PRINT" GAME ■ >ZL 



l i i u uuua ic mdJiinini uii_r. 


■ 


4 t*t\ 


2180 LOCATE 14.14:PRINT" 


• 


>XU 


2190 CLEAR INPUT 




'LU 


2200 IF INKEY*=fu» THEN 2240 




)WR 


2210 IF INKEY(76)=0 THEN 2240 




>WD 


2220 GOTO 2200 




>LH 


2230 ' 




)XK 


2240 ' TABLEAU DES SCORES 




><A 


2250 ' 




>n 


2260 IF nt=l THEN 2330 




>pr 


2270 nf =1 




>EB 


2280 OPENIN "RECORD.DAT" 




)UZ 


2290 FOR k=l TO 10 




>LK 


2300 INPUT I9,sc(k),ni«(k) 




•JW 


2310 NEXT k 




>VD 


2320 CLOSE IN 




;lh 


2330 IF sc<=sc(l) THEN 2570 




)UE 


2340 INK 0,0: INK 1,20: INK 2,2 


INK 3 >LP 


,14: BORDER 0:CLS:PEN 3: LOCATE 


10,12 




:PRINT"ENTER YOUR NAME : "; 






2350 SPEED KEY 10,5 




•mm 


2360 FOR n=l TO 6 




MX 


2370 CLEAR INPUT 




>LQ 


2380 r» = INKEY»:IF rt»" THEN ; 


m 


)ZZ 


2390 letr«(n)=r» 




)LZ 
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2400 PRINT letr»(nl; >PJ 

2410 NEXT n >VH 

2420 M»=letr»(l)*letr»(2Hletr»(3) >JA 
Hetr»(*Hletr»(5Hletr»(6) 

2430 FOR s=10 TO 1 STEP -1 >RN 

2440 IF sc<sc(s) THEN 2S60 >TH 

2450 FOB v=2 TO s >GH 

2460 sc(v-l)=sc(v):m»(v-l)=n»»(v) >CN 

2470 NEXT v >XB 

2480 sc(s)=sc:ni»ls)=n»t )TZ 

2490 OPENOUT "RECORD. BAS" >« 

2500 FOR k=l TO 10 >LD 

2510 WRITE I9,sc(k),ni»(k) >UU 

2520 NEXT k )VG 

2530 CLOSEOUT >ZA 

2540 ùERA, "RECORD. BAK" >TC 

2550 GOTO 2570 >ND 

2560 NEXT l >WJ 

a/U INK 0,0:INk 1.20: INk j.^:INk 3 ;RE 
, 14:BURDER U:CLS:PEN 2:LUCATE 13,6: 
PRINT "SCORE NAHE":PEN 3: PRINT 

2580 FOR t=10 TO 1 STEP -1 >RW 

2590 PRINT TABU3)sc(t);TAB(20lni»( >FN 
t) 

2600 NEXT t >UE 

2610 PLOT 176,304, 1 : DRAW 176,80:DRA >PZ 
W 416,B0:DRAW 416,304:DRAW 176,304 

2620 CLEAS INPUT >LN 

2630 IF INKEY»=fir» THEN 2670 >WG 

2640 IF INKEY(76)=0 THEN 2670 >WU 

2650 IF INKEY»=CHR»(32) THEN 2670 >ZE 

2660 GOTO 2630 >NC 

2670 CLS:HODE 1:SPEED KEY 10,1:G0T0 )FM 
230 

2680 ' >YJ 

2690 ' TABLEAU 1 >ÏK 

2700 ' >YB 

2710 FOR k=8 TO 11:L0CATE 12,k:PEN >RN 
3:PAPER 2:PRINT STRINGK10, 150) :NEX 
T:PEN 2:PAPER 1:L0CATE 12.5:PRINT S 
TRING»( 10, 149): LOCATE 12,U:PRINT S 

!IIKtU l l4fi)|STIIKt(2,lS2);STlllK 

1(4,1*9) 

2720 pi=l:py=2S:j=40:«l=3:iyl=12:«y >NH 

2=2:i2=l:yl=ll:iv=150:i3=30:«y3=31: 

iy*=21:i*=-l:y3=ll:iv2=150 

2730 PEN 2: PAPER >HD 

2740 RETURN )FG 

2750 ' >»G 

2760 ' TABLEAU 2 >YH 

2770 * )YJ 

27B0 LOCATE 2,24:PEN 2:PAPER 1:PRIN >AN 

T CHRK 149): LOCATE 31, 24: PRINT CHRI 

(149) 

2790 PEN 2:PAPER 1 .-LOCATE 12.5:PRIN >W» 

T CHR*(152);STRING$(3,149)::PEN 3:P 

APER 2:PRINT STRING«(2, 150);:PEN 2: 



PAPER ItRIH STRING»(3,1»9);CHR»(1 

52) 

2800 FOR k=6 TO 16:L0CATE 13,k:PRIN >KJ 

T CHR»(149):NEIT:F0R k=6 TO 16:L0CA 

TE 20,k:PRINT CHRt(149):NEIT 

2810 PEN 3:PAPEK 2:F0R k=B TO 11:L0 )BC 

CATE 6,k:PRINT STRINGK4, 150):NEXT: 

FOR k=8 TO 11:L0CATE 24,k:PRINT STR 

ING»(4.150):NEXT 

2820 FOR k=6 TO 9:L0CATE 16,k:PSINT )0B 

STRING»(2,150):NUT:F0R k=12 TO 13 
:LOCATE 16,k:PRINT STRINGK2, 150) :N 
E1T 

2830 PEN 2:PAPER 1:L0CATE 2,25:PRIN >UQ 
T CHRtl 149): LOCATE 6,25:PRINT STRIN 
G* (6, 152): LOCATE 22,25:PRINT STRING 
»(6,1S2):L0CATE 31,25:PRINT CHRX14 
9) 

2840 PEN 1:PAPER 0:LOCATE 3,23:PRIN >FJ 
T CHR»(143);CHR»(192):L0CATE 29.23: 
PRINT CHR»(193):CHR$(143) 
2850 pp=24:p«=3:py=23:j=42:il=l*:«y >XK 
l=20:iy2=13:x2=l:yl=16:iv=lS0:»3=30 
:iy3=31:*y*=2:i*=-l:y3=21:iv2=150:K 
=p«4:y=23 

2860 PEN 2: PAPER >MH 

2870 RETURN >GA 

2880 ' >ZA 

2890 ' TABLEAU 3 >ZB 

2900 ' >YD 

2910 FOR k=6 TO 8:L0CATE 6,k:PEN 3: >YU 
PAPER 2:PRINT STRING»(3,1S0) :NEIT:F 
OS k=6 TO 8:L0CATE 25,k:PEN 3:PAPER 

2:PRINT STRINGI(3,150):NEXT 
2920 FOR k=6 TO 7:PEN 3:PAPER 2:L0C >YH 
ATE 15,k:PRINT CHM1150) : :PEN 2:PAP 
ER 1:PRINT STRINGK2, 149); :PEN 3:PA 
PER 2:PRINT CHRJUSO) :NEXT:LOCATE 1 
6,5:PRINT STR ING»( 2, 150): LOCATE 16, 
8.-PRINT STRING»(2,150) 
2930 PEN 2:PAPER 1: LOCATE 16,13:PRI >UQ 
NT STRING» (2, 152) 

2940 FOR k=17 TO 18:PEN 3:PAPER 2:L >BL 
OCATE 5,k:PRINT CH8JUS0): :PEN 2:PA 
PE8 1 : PS I NT STRING»(2,149) ;:PEN 3:P 
APER 2: PRINT CHR$( 150): NEXT: LOCATE 
6,16:PRINT STRINGK2, 150):L0CATE 6, 
19:PRINT STRINGK2.150) 
2950 FOR k=17 TO 18:PEN 3:PAPER 2:L )JA 
OCATE 25.k:PRINT CHR»(150>; :PEN 2:P 

i nrn * . nn 1 ut rto ■ *"/*• < o * *0 » ■ .Dru Q . 
ni tn i.tXini j 1 n 1 rtu« , ». , i * à i . . . ui 3* 

PAPER 2:PRINT CHRidSÛ) :NEXT:LOCATE 
26,16:PRINT STRINGX2, 150) :LOCATE 
26,19:PRINT STRINGK2, 150) 
2960 PEN 3:PAPER 2:L0CATE 15.18:PRI >XB 
NT STRINGtl4,150):PEN 2:PAPER 1 : LUC 
ATE 14,19:PRINT STRINGK2, 149);STRI 



NG»(2,1S2);STRING»(2,1*9) 

2970 PEN 2:PAPER 1:L0CATE 2,24:PRIN >VP 

T CHR»( 149): LOCATE 31. 24: PRINT CHR» 

(149):PEN 1:PAPER 0:LOCATE 3,23:PRI 

NT CHRtl U3);CHR»( 192). -LOCATE 29.23 

:PRINT CHR»(193);CHR»(143> 

2980 PEN 2:PAPER 1:L0CATE 2.2S.-PRIN >UX 

T CHR» (149): LOCATE 6,25:PRINT STRIN 

G»(6,1S2):L0CATE 22,25:PRINT STRING 

» (6, 152): LOCATE 31,25:PR1NT CHR»(1* 

9) 

2990 lf=II«l:PEN 2:PAPER 0:LOCATE 3 >AK 

3,1:PRINT "LIFE:"; If 

3000 pw=623:lf=lf*l:pp=24:p«=3:py=2 >AD 

3:|=*6:«l=3:xyl=16:«y2=2:«2=l:yl=13 

:iv=150:i3=30:iy3=31:xy4=17:x4=-l:y 

3=13:«v2=150:i=p»4:y=23 

3010 PEN 2: PAPER >L0 

3020 RETURN >EI 

3030 ' >V 

3040 ' TABLEAU 4 >XK 

3050 ' >YA 

3060 PEN 2:PAPER 1:L0CATE 3,5:PRINT >HD 

STRING* (3, 149): LOCATE 28,5:PRINT S 
TRINGt(3,149):L0CATE 3, 1B:PRINT STR 
ING»(3,149):L0CATE 28,18:PRINT STRI 
NGI(3,1*9) 

3070 FOR k=ll TO 12:PEN 3:PAPER 2:L >JP 
OCATE 15,k:PRINT CHR*(150); :PEN 2:P 
APER 1 : PH I NT STRINGK2, 149) : :PEN 3: 
PAPER 2:PRINT CHR»(150) :NEXT:LOCATE 

16,10:PRINT STR IMGtt 2, 150) : LOCATE 
16. 13: PRINT STRINGK2, 150) 
3080 PEN 1:PAPER 0:LOCATE 3.23.-PRIN >FF 
T CHR» (143): CHR» (192): LOCATE 29.23: 
PRINT CHRt(193);CHRt(l*3) 
3090 k=10:kl=ll >XD 

3100 PEN 3:PAPER 2 >LG 

3110 LOCATE k,kl:PRINT CHR»1150):LO >LC 
CATE k*7,kl*7:PRINT CHRX1S0) 
3120 k=kU:kl=kl-l >HF 

3130 IF k=17 THEN 3150 >ND 

3140 GOTO 3110 >HA 

3150 k=17:kl=5 >0H 

3160 PEN 3:PAPER 2 >HE 

3170 LOCATE k,kl:PRINT CHR»(150):L0 )LL 
CATE k-7,kl«7:PRINT CHRX150) 
3180 lc=k'l:kl=kl»l >HK 

3190 IF k=24 THEN 3210 >NE 

3200 GOTO 3170 >MD 

3210 PEN 2:PAPER 1:L0CATE 2,25:PRIN >UH 
T CHR» (1*9): LOCATE 6,25:PRINT STRIN 
G»(6,152):L0CATE 22.25.-PRINT STRING 
t(6,152):L0CATE 31,25:PRINT CHRttl* 
9) 

3220 LOCATE 2,24:PRINT CHRt(149):L0 >GU 
CATE 31,2*:PRINT CHR»(1*9) 
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3230 pp=24:p«=3:py=23:j=36:»l=3:«yl >VQ 

=10:«y2=2:x2=l:yl=12:iv=150:»3=30:i 

y3=31:«y4=:3:«â=-hy3=12:iw2=lS0:K= 

p>4:y=23 

3240 PEN 2: PAPER >MA 

3250 RETURN >FD 

3260 ' >YD 

32 70 ' TABLEAU 5 >YE 

3280 " >YF 

3290 PEN 2;PAPER 1:L0CATE 11.6:PRIN >PP 

T STP.ING»(3,U9):L0CATE 20,6:PR1NT 

STRING»(3.143):LÛCATE 3,16:PRINT ST 

RING»U.U9):L0CATE 27,16:PRINT STR 

INGJ14.149I 

3300 LOCATE 6,9:PRINT STRINGX2, 1S2 >UX 

):LOCATE 26.9:PRINT STRINGK2, 152): 

LOCATE 16,19:PR!NT STRINGJ12, 152) 

3310 FOR k=10 TO 11:LÛCATE G.k:PRIN >YE 

T STRING»(2,149):L0CATE 26.k:PRINT 

STRING«(2.149i:NEXT 

3320 PEN 3: PAPER 2: FOR k=9 TÛ 10: LU >VR 

LAIE ll.k:PKINI STRING»<3.1SO):L0CA 

TE 20,k:PRINT STRINGJ13, 1S0):NEXT 

3330 k=ll:kl = U >XB 

3340 LOCATE k,kl:PRINT STRINGJI4.1S >FQ 

0) 

3350 k=k»l:kl=kHl >MJ 

3360 IF k=16 THEN 3380 >PE 

3370 GOTO 3340 >NA 

3380 k=16:kl=14 >YE 

3390 LOCATE k,kl:PR!NT STRINGX4.1S >fV 

0) 

3400 k=kM:kl=kl-l >MG 

3410 IF k=20 THEN 3430 >NZ 

3420 GOTO 3390 >NB 

3430 LOCATE 16, 16:PRINT ^TRING»(2, 1 >FL 

50) 

3440 PEN 1:PAPER 0:LOCATE 3,23:PRIN >EE 

T CHR»(143)«CHR»(192):L0CATE 29,23: 

PRINT CHR»(193MCHR»<143) 

3450 PEN 2:PAPER 1:L0CATE 2.25:PRIN >DY 

T CHR» 1149): LOCATE 6,25:PRINT STR1N 

G*(6,152):L0CATE 22.25:PRINT STRING 

$(6,152):L0CATE 3t,25:PRINT CHRK14 

9):L0CATE 2,24:PRINT CHR»U49):L0CA 

TE 31,24:PRINT CHRK149) 

3460 p«=623:pp=24:p»=3:py=23:j=48:i >JF 

l=3:xyl=16:xy2=2:«2=l:yl=19:iv=150: 

i3=30:xy3=31:iy4=17:»4=-l:y3=19:iv2 

=150:«=p+4:y=23 

3470 PEN 2: PAPER >MF 

3480 RETURN >FJ 

3490 ' >YJ 

3500 ' TABLEAU 6 >YA 

3510 * >YB 

3520 FOR k=7 TO 18:PEN 3:PAPER 2:L0 >KE 

CATE 6.k:PRINT CHR*(1S0):NEXT 



3530 FOR k=7 TO 1B:L0CATE 9,k:PRINT >UN 
CHR»1150):NEXT 

3540 FOR k=7 TO 18:L0CATE 12.k:PRIN >YE 
T CHR»(1S0):NEXT 

3550 FOR k=7 TO 18:L0CATE 21,k:PRIN )VF 
T CHR$(150):NEXT 

3560 FOR k=7 TO 18:L0CATE 24.k:PRIN >«K 
T CHR»(150):NEXT 

3570 FOR k=7 TO 1B:L0CATE 27,k:PRIN >t/P 
T CHR»(150):NEXT 
3580 PEN 2:PAPER 1:L0CATE 6,6:PRINT >NL 

^TniH'*»/'' urti ,i nritr a« r.noitiT c 
u il,i[lU»VI,l<4JJ<LUV,niL -1,'J.ii.iiti - 

TRINGK/,149) 

3590 LOCATE 6.19:PR1NT STRING»(7,14 )XQ 
9):L0CATE 21,19:PRINT STRING»(7. 149 
) 

3600 PEN 1:PAPER 0:LOCATE 3.23:PRIN )EC 
T CHR»(143HCHR»(192):LÛCATE 29.23: 
PRINT CHR»(193hCHR»(U3) 
3610 PEN 2:PAPER 1:L0CATE 2,25:PRIN >DW 
T CHR»1149):L0CATE 6,25:PRINT STRIN 
G»l6,152):L0CATE 22.25:PR1NT STRING 
»(6.152):L0CATE 31,25:PRINT CHR»(14 
9):L0CATE 2.24:PRINT CHR$(U9):L0CA 
TE 31.24:PRINT CHR»(149l 
3620 lf = lHl:pp=24:px=3:py=23:j=72: >MU 
xl=20:xyl=21:xy2=12:x2=-l:yl=6:iv=l 
S0:x3=13:iy3=21:xy4=12:x4=l:y3=19:i 
v2=150:x=p«4:y=23 

3630 PEN 2: PAPER >HD 

3640 RETURN )FG 

3650 ' >YG 

3660 * TABLEAU 7 )YH 

3670 ' >YJ 

3680 PEN 2:PAPER l: LOCATE 3.6:PRINT >HJ 
STRING»(12,149)::PEN 3-.PAPER 2:PRI 
NT STRING»14,1S0)::PEN 2:PAPER 1:PR 
INT STRING»U2.149) 

3690 PEN 3:PAPER 2:L0CATE 3.12-.PRIN >YL 
T STRINGt(ll,150)::PEN 2:PAPER 1:PR 
INT STRINGJI2, 149) :STRINGS(2. 152) :S 
TRING»(2,U9)::PEN 3:PAPER 2:PRINT 
STRINGJU1.1S0) 

3700 PEN 2:PAPER 1:L0CATE 3,18:PRIN )JB 
T STRING»! 11, 149) ::PEN 3:PAPER 2:PR 
INT STRING»(6,1S0);:PEN 2:PAPER 1:P 
RINT STRINGK11.149) 
3710 PEN 1:PAPER 0:LOCATE 3,23:PR1N >EE 
T CHR»(143mCHR»(192):L0CATE 29.23: 
PRINT CHRX193HCHRJU43) 
3720 PEN 2:PAPER 1:L0CATE 2,25:PRIN >DY 
T CHR«(149):L0CATE 6,2S:PRINT STRIN 
G»(6,152):L0CATE 22.25:PRINT STRING 
»(6,152):L0CATE 31,25:PRINT CHR»(14 
9): LOCATE 2.24:PRINT CHRX149) :LOCA 
TE 31,24:PRINT CHRK149) 
3730 p«=623:pp=24:pi=3:py=23:j=36:i >EH 



I=3:iyl=31:xy2=2:x2=l:yl=15:iv=150: 

I3=30:iy3=31:xy4=2:x4=-l:y3=9:iv2=l 

S0:x=p*4:y=23 

3/40 PEN 2:PAPER >«F 

3750 RETURN )FJ 

3760 ' >H 

3770 ' TABLEAU 8 >YK 

3780 ' >ZA 

3790 PEN 3:PAPER 2:k=3:l=8 >UX 

3800 k=k*2:l = IU:L0CATE k, l:PRINT S )ZB 

TRING»(2,150):IF k=13 THEN 3810 ELS 

E 3800 

3810 k=17: 1=14 >RA 

3820 k=k»2:l=l-l:LÛCATE k.l:PRINT S >ZQ 

TRING»(2,1S0):IF k=27 THEN 3830 ELS 

E 3820 

3830 PEN 2:PAPER 1 : LOCATE 16,18:PRI >M1 

NT STRINGK2.1S2) 

3840 PEN 3: PAPER 2: LOCATE 9, 7: PRINT >VE 

STRING»! 16. 150) 
obbu luuaic li,o:rnini jiiiinu>u., i i w 
50) 

3860 LOCATE 13,9:PRINT STRINGH8.15 >FG 
0) 

3870 PEN 2:PAPER 1:L0CATE 15,10:PRI ^Z 
NT STRINGK4.149) 

3880 LOCATE 15, 14: PRINT STRING» 14.1 >FD 
49) 

3890 PEN 1:PAPER 0:LOCATE 3,23:PRIN >FF 
T CHR»U43nCHR»U92):L0CAT& 29,23: 
PRINT CHR»(193)»CHR»(143) 
3900 PEN 2:PAPER 1:L0CATE 2,25:PRIN )W 
T CHR*(U9i:L0CATE 6.25:PRINT STRIN 
G»(6,152):LÛCATE 22.25:PRINT STRING 
»(6.152):L0CATE 31,25:PRINT CHR«(14 
9l:L0CATE 2.24:PRINT CHR»(149):L0CA 
TE 31,24:PRINT CHR«(149) 
3910 pp=24:p«=3:py=23:i=56:il=3:»yl >VY 
=17:iy2=l:i2=2:yl=18:iv=lS0:x3=30:x 
y3=32:xy4=16:x4=-2:y3=18:iv2=150:x= 
p)4:y=23 

3920 PEN 2: PAPER )HF 

3930 RETURN )FJ 

3940 ' >YJ 

3950 ' TABLEAU 9 >YK 

3960 ' >ZA 

3970 PEN 3:PAPER 2:F0R k=8 TO 10:L0 >BC 
CATE 8,k:PRINT CHR» (1 50 1 : LOCATE 16, 
k: PRINT CHRt(150):NEXT 
3980 FOR k=6 TO 12:L0CATE 10,k:PRIN )GC 
T CHR» (150): LOCATE 14,k:PRINT CHR»( 
1S0):NEXT 

3990 FOR k=5 TO 16:L0CATE 12,k:PRIN >VK 
T CHR»(150):NEXT 

4000 LOCATE 11, 5: PRINT STRING» (3. 15 >EP 
0) 
4010 LOCATE 9,7:PRINT STRINGX7.150 >EN 
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) 

4020 LOCATE 8,9:PRINT STRINGK9.1S0 >ET 

) 

4030 LOCATE 9,11:P81NT STRINGM7.15 >EB 

0) 

4040 LOCATE 11,13:PRINT STRING$(3,1 >FB 

50) 

4050 PEN 2:PAPER 1:L0CATE 12,17:PRI >PR 

NT CHR! (152) 

4060 LOCATE 12,20:PRINT CHR*(152) >AC 

4070 FOR k=18 TO 19:L0CATE 12.k:PRI )WL 

NT CHR!(149):NEXT 

4080 LOCATE 20,16:PR1NT STRINGM3.1 >FT 

49) 

4090 FOR k=17 TO 19:L0CATE 19,k:PRI >CU 

NT STRING!(S.149):NEXT 

4100 LOCATE 20,20:PRINT STRING»(3,1 >FE 

49) 

4110 PEN 1:PAPER 0:LÛCATE 3.23:PR1N >EZ 

T CHR!(143HCHR!(192):L0CATE 29,23: 

PRINT CHR!(193MCHR!(143) 

4120 PEN 2:PAPER 1:L0CATE 2.25:PRIN >DT 

T CHRK 149) :LOCATE 6.25:PRINT STRIN 

G$t6,152):L0CATE 22,25:PR1NT STRING 

»16,152):L0CATE 31.2S:PRINT CHRIU4 

9):L0CATE 2.24:PRINT CHR»(U9):L0CA 

TE 31.24:PRINT CHRK149) 

4130 pw=623:lf = lfU:pp=24:p«=3:py=2 >EA 

3: j=48:xlM3:«yl = 19:«y2=12:»2M:yl = 

li;.i."îLCi«j"30;i(y2"3! :»y»"23;«S" I 

:/J=lB:ivt=lbO:«=p'4:y=i3 

4140 PEN 2.-PAPER >HA 

4150 RETURN >FD 

4160 ' >YD 

41'0 ' TABLEAU 10 >Y£ 

4180 ' >YF 

4190 PEN 3:PAPER 2:k=2:l=8 >UQ 

4200 k=ktl:l=l-l:LOCATE k,l:PRINT C >BF 

HR»( 150): LOCATE k»23, 1 »8:PRINT CHR» 

(150) 

4210 IF k=7 THEN 4220 ELSE 4200 >WP 

4220 k=2:l=10 >HE 

4230 k=k«l:l = lH:LOCATE k, I .-PRINT C >BJ 

HR»U50):L0CATE k«23, 18:PRINT CHR! 

(150) 

4240 IF k=7 THEN 4250 ELSE 4230 >UZ 

4250 k=12:l=8 >JF 

4260 k=kH:l = ll:LOCATE k,l:PR!NT C >AL 

HRK 150): LOCATE k»5, U6: PRINT CHR!( 

150) 

4270 IF k=15 THEN 4280 ELSE 4260 )XG 

4280 k=12: 1=10 >0D 

4290 k=ktl:l = m.-LOCATE k,l:PRINT C >AP 

HR!( 150): LOCATE k«5, l-6:PRINT CHR$( 

150) 

4300 IF k=15 THEN 4310 ELSE 4290 >XX 

4310 LOCATE 3. 16:PRINT STRING!l2.15 >XG 



0):LOCATE 29,16:PRINT STRINGK2. 150 
):LOCATE 16,5:PRINT STRINGK2, 150) 
4320 PEN 2:PAPER hLOCATE 16,13:PRI >WK 
NT STRING! (2, 152) 

4330 LOCATE 5,16:PRINT STRING»I3,14 >MF 
9):L0CATE 26. 16: PRINT STRING! (3. 149 
) 

4340 PEN 1:PAPER 0:LOCATE 3,23:PRIN >EE 
T CHR! ( 1 43 HCHRK 192): LOCATE 29,23: 
PRINT CHR!(193)«CHR!(143) 
4350 PEN 2: PAPER 1: LOCATE 2,25:PRIN )DÏ 
T CHR! (149): LOCATE 6.25:PRINT STRIN 
G1(6.152):L0CATE 22,25:PRINT STRING 
!16.152):L0CATE 31,25:PRINT CHRK14 
9):L0CATE 2,24:PRINT CHR! ( 1 49 ) : LOCA 
TE 31,24:PRINT CHR!(U9) 
4360 pp=24:px=3:py=23:j=36:il=3:»yl )RM 
=31:xy2=2:i2=t:yl=9:iv=150:i3=30:xy 
3=31:xy4=2:x4=-l:y3=19:iv2=150:x=p« 
4:y=23 

4370 PEN 2: PAPER >MF 

4380 RETURN >FJ 

4390 ' >VJ 

4400 ' TABLEAU 11 >YA 

4410 ' >YB 

4420 PEN 2: PAPER 1: LOCATE 6. 9: PRINT >UE 
STRING!(6.149) 

4430 LOCATE 7,18:PRINT STRING!(5.14 >0N 
9):L0CATE 13,15:PRINT STR1NG!(4,U9 
):LOCATE 14.13:PRINT STRINGK2. 149) 
:LOCATE U,12:PR1NT CHR!ll49) 
4440 LOCATE 24,8:PRINT CHR!1152) )ZL 
4450 LOCATE 8,8:PRINT STRINGK5, U9 >ED 
) 

4460 FOR k=9 TO 1 1 : LOCATE 13,k:PRIN >CJ 
T STRING!113.149):NEXT 
4470 FOR k=9 TO 18:L0CATE 12,k:PRIN >VU 
T CHR!(149):NEXT 

4480 FOR k=12 TO 15:L0CATE l?,k:PR! >UL 
NT CHR!(149):NEXT 

4490 PEN 3:PAPER 2:F0R k=10 TO 17:L >UL 
OCATE 8,k:PRINT STRING!(4, 150):NEXT 

4500 LOCATE 7,5:PR1NT STRING!(2,150 >EH 

) 

4510 LOCATE 8,6:PRINT STRINGK2, 150 >EL 

) 

4520 LOCATE 9,7:PRINT STRING!(3,150 >EQ 

) 

4530 PEN 1:PAPER 0:LOCATE 3,23:PRIN )EF 

T CHR!(143)«CHR!(192):LÛCATE 29,23: 

PRINT CHR!(193)«CHR!(U3) 

4540 PEN 2:PAPER 1:L0CATE 2,25:PRIN >DZ 

T CHR! (149): LOCATE 6,25:PRINT STRIN 

G!(6,1S2):L0CATE 22,25:PRINT STRING 

!(6,152):L0CATE 31,25:PRINT CHR!(14 

9):L0CATE 2,24:PRINT CHR!1149):L0CA 



TE 31,24:PRINT CHRK149) 

4550 py=623:pp=24:px=3:py=23:j=39:x >F0 

I=3:iyl=7:xy2=2:x2=l:yl = 18:iv=150:i 

3=13:iy3=31:«y4=12:i4=l:y3=18:iv2=l 

S0:x=p*4:y=23 

4560 PEN 2: PAPER >HG 

4570 RETURN >FK 

♦580 ' >YK 

4590 ' TABLEAU 12 >ZA 

4600 ' >ÏC 

4610 PEN 3:PAPER 2:k=2: 1=10 >VC 

4620 k=k»l:l=ll:LOCATE k,l:PRlNT C >LZ 

HR!(150) 

4630 LOCATE k*3, l»9:PRINT CHR!(150) >CV 

4640 LOCATE k«6,l:PRINT CHR!(1S0) >BB 
4650 LOCATE k»9, l«9:PRINT CHR!(150) )CD 

4660 LOCATE k*15,l:PRINT CHR!(150) >BR 

4670 LOCATE k»l8. I«9:PRINT CHR!(150 >D« 

) 

4680 LOCATE k»21.l:PRINT CHRK 150) >BQ 

4690 LOCATE k«24, l*9:PRINT CHR!(150 >DL 

) 

4700 IF k=6 THEN 4710 ELSE 4620 >UD 

4710 k=2: 1=14 )JC 

4720 k=k»l:l = IU:LOCATE k, kPRINT C >LY 

HR!(150) 

4730 LOCATE k+3, 1-9:PRINT CHR!(150) >CY 

4740 LOCATE k»6.l:PRINT CHR!(150) )BC 
4750 LOCATE k»9. I-9:PRINT CHR!(150) )CG 

4760 LOCATE ktl5,l:PRINT CHR!(150) >BT 

4770 LOCATE k«18, l-9:PRINT CHR!(150 >t)Q 

) 

4780 LOCATE k«21,l:PRINT CHR!1150) >BR 

4790 LOCATE k*24, |-9:PRINT CHR!(150 >DP 

) 

4800 IF k=6 THEN 4810 ELSE 4720 >UG 

4810 PEN 2:PAPER 1:L0CATE 1S,9:PRIN >RQ 
T STRING!14.149):L0CATE 15.15:PRINT 

STRING! (4, 149) 

iOOft inriTC IC 40.0DIHT CTDIlirèc - ) t \Clf 

■iUbU bUbi'i I t- IU9I4.1I II ini jlliillUfii.il 1 « 

49) 

4830 PEN 1:PAPER 0:LOCATE 3,23:PRIN )FA 

T CHR!(143HCHR!(192):L0CATE 29,23: 

PRINT CHRII 193) «CHRK 143) 

4840 PEN 2:PAPER 1:L0CATE 2,2S:PRIN ;DC 

T CHR!(149):L0CATE 6,25:PRINT STRIN 

G!(6,152):L0CATE 22,25:PRINT STRING 

!(6,152):L0CATE 31,25:PRINT CHRK14 

9):L0CATE 2,24:PRINT CHRK149) :LOCA 
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TE 31,24:PRINT CHRH149I 
«850 l» = IHl:pp=24:p»=3:py=23:.t=44: >LZ 
il=3:iyl=17:xy2=l:i2=2:yl=12:iv=150 
:i3=30:iy3=32:«y4=16:x4=-2:y3=12:iv 
2=150:x=p»4:y=23 

♦860 PEN 2: PAPER >HK 

4870 RETURM >GC 

4880 ' >zc 

4890 ' TABLEAU 13 >ZD 

4900 ' >1 f 

4910 PEN 3:PAPER 2:L0CATE 5.5:PB!NT m 
STRINGH3.150) 

4920 LOCATE 10,5:PR1NT STRINGK3.1S >EA 
0) 
4930 LOCATE 10.7:PRINT STRINGK3.15 >ED 

0) 

4940 LOCATE 10,8:PRINT STRINGK2.15 >EE 

0) 

4950 LOCATE 2Û.S:PR1NT STRINGH3.15 >EE 

0) 

4960 LOCATE 20.9:PRINT STRINGK3.15 >FB 

0) 

4970 LOCATE 25.5:PRINT STRINGU3.15 >FD 

0) 

4980 LOCATE 12,6:PRINT CHR*(150l >ZN 

4990 LOCATE 12.9:PRINT CHR41150) )ZT 

5000 LOCATE 3.12:PRINT STRINGK3.15 >EP 

0) 

5010 LOCATE 28.15:PRINT STRINGK3.1 >FK 

50) 

5020 FOR k=6 TO 9:L0CATE 10.k:PRINT >DC 

CHR» Il 50): LOCATE 6,k:PRINT CHRX15 
OCNEIT 
5030 FOR k=5 TO 9:L0CATE 15,k:PRINT >ZR 

CHR»(15O):L0CATE 17.k:PRINT CHR»(1 
50):L0CATE 26,k:PRINT CHR»(1S0):NEX 
T 
5040 FOR k=6 TO 7:L0CATE 20,k:PRINT >UA 

CHR»U50l:NEXT 
5050 FOR k=7 TO 8:L0CATE 22.k:PRINT )UF 

CHR»1150):NEXT 

5060 k=14:l=16 >0J 

5070 k=kH:l = l-l:LOCATE k.hPRINT C >U 
HRIU50) 

5080 IF k=18 THEN 5090 ELSE 5070 >XK 
5090 PEN 2: PAPER 1: LOCATE 6.12:PRIN >UX 
T STRINGIU2.149) 

5100 LOCATE 16.15:PRINT STRINGllÛ. ,GB 
149) 

5110 LOCATE 6,5:PRINT CHRJI149) >ÏG 

bl-U LUCATE 10. cPRINT CHRilUai >ZG 
5130 LUCATE lb.yrPRINT CHR»(H9) >ZR 
5140 LOCATE 21,7:PRINT CHRM149) >ZL 
5150 LOCATE 26,5:PR1NT CHRXH9) >Z0. 
5160 LOCATE 16.19:PRINT STRINGK2.1 >FU 
52) 
5170 FEÎi 1:FAFER G:LOCATE 3,23:P81N )EG 



SCORE: 'i HISC< );HE : bj \ L 1 1 E 









«.■>*cïskk 



1--IEF- 
•ILE 



T CHR$ll43)*CHRI(192):L0CATE 29,23: 

PRINT CHR*(193MCHR»(143) 

5180 PEN 2:PAPER 1:L0CATE 2,25:PRIN )DA 

T CHR»( 149): LOCATE 6.25:PRINT STRIN 

G»(6,152):L0CATE 22.25:PRINT STR1NG 

«(6.152):L0CATE 31,25:PRINT CHR»(14 

9):L0CATE 2.24:PRINT CHRKU9) :LOCA 

TE 31,24:PRINT CHRK149) 

5190 pti=623:pp=24:px=3:py=23:j=S3:x >JF 

I=3:xyl=17:xy2=l:x2=2:yl=19:iv=150: 

I3=30:xy3=32:iy4=16:x4=-2:y3=19:iv2 

=150:i=p«4:y=23 

5200 PEN 2:PAPER >LG 

5210 RETURN >FB 

5220 ' >YB 

5230 ' TABLEAU 14 >VC 

5240 * >YD 

5250 PEN 3:PAPER 2:L0CATE 3.11:PRIN >VL 

T STRINGK5.150) 

5260 LOCATE 26,11:PRINT STRINGK5.1 >FN 

50) 

5270 LOCATE 3,8:PRINT STRINGH2.150 >EN 

) 

5280 LOCATE 14,8:PRINT STRINGU6.1S )FC 

0) 

5290 LOCATE 29,8:PRINT STRINGU2.15 >FF 

0) 

5300 LOCATE 3.5:PRINT STRING$(28. 15 >ED 

0) 

5310 PEN 2:PAPER 1:LÛCATE 3.14:PRIN >MN 

T STRINGI110.U9) 

5320 LOCATE 16,14:PRINT STRINGK2.1 >FT 

49) 

5330 LOCATE 21.14:PRINT STRINGX10, ;GZ 

149) 

5340 LOCATE 8.11:PRINT STRINGK18.1 >FB 

49) 

5350 LOCATE 5,8:PRINT STRINGK9. 149 >EE 



■ 

I 






) 

5360 LOCATE 20,8:PRINT STRINGU9.14 >FK 
9) 

5370 LOCATE 16,17:PRINT STRINGK2.1 )FV 
52) 

5380 PEN 1:PAPER 0:LOCATE 3,23:PR1N )FB 
T CHRI(143MCHRI(192):L0CATE 29,23: 
PRINT CHR«(193MCHR»1143) 
5390 PEN 2: PAPER 1: LOCATE 2,25:PRIN >DD 
T CHR»(149):L0CATE 6,25:PRINT STRIN 
G«l6,152):L0CATE 22,25:PR1NT STRING 
»(6.152):L0CATE 3t.25:PRINT CHRJ114 
9):L0CATE 2.24:PR1NT CHRIU49):L0CA 
TE 31,24:PRINT CHRIU49I 
5400 pp=24:px=3:py=23:j=48:xl=3:xyl >VT 
=17:xy2=l:x2=2:yl=17:iv=150:x3=30:x 
y3=32:«y4=16:i4=-2:y3=17:iv2=;50:«= 
p»4;y=23 

5410 PEN 2:PAPER >HB 

5420 RETURN )FE 

5430 ' >YE 

5440 ' TABLEAU 15 >if 

5450 ' >YG 

5460 PEN 3:PAPER 2:L0CATE 9.7:PRINT )UD 
STRING»15,150) 

5470 LOCATE 20,7:PRINT STRINGK5.15 )EG 
0) 

c*on mrirr o o.noiuT ctoiiirni \cr\ \CD 
jiuu LutniL Jiu.inim ji[iim»u,iju /cil 

) 

5490 LOCATE 19,8:PRINT STRING»(7.15 )FM 

0) 

5500 LOCATE B,9:PRINT STRINGKB.150 )É« 

) 

5510 LOCATE 18.9:PRINT STRINGi(8.15 >FF 

0) 

5520 LOCATE B,10:PRINT STRINGK2.15 >EZ 

0) 

5530 LOCATE 14.1Û.-PRINT STRING»(2.1 >FF 
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50) 

5540 LOCATE 18.10:PRINT STRINGK2.1 >FL 

SOI 

SSSO LUCAIE J». 1U:PRINT STRINGH2.1 >FJ 

soi 

5560 LOCAl'E 9.11:PRINT STRINCi(ï,15 >FC 
0) 

SS;ù LOCAl'E 1B,11:PRINT STRINGX7.1 >FW 

50) 

5560 LOCATE 10. 12:PR1NT STRINGK5.1 >FH 

50) 

5590 LOCATE 19,12:PRINT STRINGK5.1 >FY 

50) 

5600 LOCAl'E 12.18:PRINT STRINGH10. >GV 

150) 

5610 LOCATE 11.19:PR:NT STRINGM12. ;GY 

150) 

5620 PEN 2:PAPER 1:FÛR k = 10 TO U:L )Vi 

OCATE 16,k:PRINT STRING»(2,149) :NEX 

T 

5630 LOCATE 15.12:PRINT STRINGK4.1 >FU 

49) 

5640 FOR k=13 TO 14:L0CATE 14.k:PRI >CG 

NT STRING»(6.149):NEXT 

5660 LOCATE 16.14:PRINT STRING»(2,1 >FT 

52) 

5660 LOCATE 12,17:PRINT STRINGMtO, >GJ 

149) 

5670 LOCATE 11,18:PRINT CHRJU49) >AZ 

5680 LOCATE 22,18:PRINT CHRIH49) )AC 

5690 LOCATE 10.19:PR1NT CHRK152) >AV 

5700 LOCATE 23,19:PRINT CHR$(152) >AQ 

5710 PEN 1:PAPER 0:LOCATE 3,23:PRIN >EG 

T CHR»tl43HCHRJ(192):L0CATE 29.23: 

PB1NT CHR»(193MCHR»(143) 

5720 PEN 2:PAPER hLOCATE 2.25:PRIN ;DA 

T CHR»( 149): LOCATE 6,25:PRINT STRIN 

G$(6,152):L0CATE 22,25:PRINT STRING 

»<6,152i:L0CATE 31,25:PRINT CHRX14 

9):L0CATE 2,24:PRINT CHRJI 149):L0CA 

TE 31,24:PR1NT CHRJU49) 

5730 pu=62J:lt=lttl:pp=24:pi=3:py=2 >AE 

3:j=94:xl=10:iyl=14:«y2=9:«2=l:yl=l 

0:»v=144:i3=20:xy3=24:iy4=19:«4=l:y 

3=10:iv2=144:«=p»4:y=23 

5740 PEN 2:PAPER >HH 

5750 RETURN >GA 

5760 ' ;ZA 

5770 • CONGRATULATION JZB 

5780 ' >ZC 

5790 CLS:MODE 1 >CA 

5800 INK 0.0: INk 1.20: INK 2.2: INk 3 >MF 

.14: BORDER 

SblU LOCATE b.S:PRlNT"rOU'VE DESTRÛ >BA 

YED THE MONSTER " 

5820 LOCATE 5, 7:rRIHT*WITH COURAGE. >»8 

ÏOO'VE OELIVED " 



5830 LOCATE 5.9:PRINT"THE PRINCESS )AE 

OF THE KINGDOH. " 

5840 LOCATE 10, 12:PR1NT"FELICITATI0 >GX 

l« 

5850 PLOT 32, 355: DRAW 32. 179: DRAW 5 >LH 

43,1?9:DRAW 543,355:DRAU 32.355 

5860 READ so.dr >DG 

5870 IF so=-l THEN 5920 >0P 

5880 SOUND l.so.dr.lS >QT 

5890 GOTO 5860 >PJ 

5900 DATA 190.96.1,1,239.96,1,1,213 >YA 

,96,1,1,319,96,1,1,1,1,1,1,1,1,319, 

96.1,1,213.96,1,1,190,96.1,1,239.96 

,1,1 

5910 DATA -1.1 >PG 

5920 CLEAR INPUT >LV 

5930 IF INKEYI="" THEN 5930 )U0 

5940 IF INKEYI = fn» THEN 5980 >UX 

5950 IF INkEY(76)=0 THEN 5980 )WJ 
5960 IF 1NKEY*=CHR»(32) THEN 5980 )ZV 

5970 GOTO 5930 >PF 

5980 GOTO 2260 >NK 

5990 ' >ZF 

6000 ' LES GRAPHISMES >ii 

6010 ' >XK 

6020 SYMBOL AFTER 144 >PX 
6030 SYMBOL 145.0,0,24,60,60,24,0,0 >AY 

6040 SYMBOL 146,0,1,3,3,3,3,1,0 >XL 

6050 SYMBOL 147,127.126,124,126,126 )NT 

,126,126,127 

6060 SYMBOL 148,254,126.126,126.126 >NZ 

,126,126,264 

6070 SYMBOL 149.255.32,32.32.255.4, ;DM 

4,4 

6080 SYMBOL ISO, 255, 191, 191.191, 191 >Nk* 

,191,129,255 

6090 SYMBOL 151,0,128,192,192.192.1 >JT 

92,128,0 

6100 SYMBOL 1S2. 255, 126, 60, 24, 24. 60 >JF 

,126,255 

6110 SYMBOL 169,0,126,126,90,90,24, ;Fk 

24,24 

6120 SYMBOL 170.24,24,24,24,24,60,6 >DR 

0,0 

6130 SYMBOL 171,0,102,102,102,102,1 >Kk 

02, 102, 126 

6140 SYMBOL 172,126,102,102,102,102 )KH 

,102,102,0 

6150 SYMBOL 1 73, 0,254,. 54, 'Jb, 98. 104 >JT 

,104,120 

blbO brttllOL 14. 1.:U. 104. 104, 98. 9b. 2 >JV 

54,254,0 

61 7L> MMBUL 175.0.198,198.238.238.2 ;LJ 

54,254,254 

6180 SYMBOL 1;6. 254, 214, 214, 198. 198 >LN 

,198,198,0 



6190 SYMBOL 177,0,56.56,108,108.198 >JD 

,198,198 

6200 SYMBOL 178.198,198,198,108.108 )JU 

,56,56,0 

6210 SYMBOL 179,0,198,198,230,230,2 )LM 

46,246,222 

6220 SYMBOL 180.222,206.206,198,198 )LZ 

«no \<\o n 

, 13U, IJLJ, U 

6230 SYMBOL 181,0,60,60,102,102,96, >FG 

96,60 

6240 SYMBOL 182,60,6,6,102,102,60,6 >DR 

0,0 

6250 SYMBOL 183,0,252,252,102,102,1 >KC 

02,102,124 

6260 SYMBOL 184,124,108.108,102.102 )LL 

,226,226,0 

6270 SYMBOL 185.0,24,24.24,24,48,48 )CB 

,0 

6280 SYMBOL 186.0,60.60.102,102,192 >JK 

,192,192 

6290 SYMBOL IBi. 192, 192,192.102, 102 ;JM 

,60,60,0 

6300 SYMBOL 188.0,24,24,60,60.102.1 >GC 

02, 102 

6310 SYMBOL 189.102,126.126,102.102 >KB 

,102,102,0 

6320 SYMBOL 190.0,240,240,96,96,96, >FT 

96,96 

6330 SYMBOL 191,96,98,98,102.102.25 >HL 

4,254,0 

6340 SYMBOL 192,224,248,252.254,254 >NN 

,255,255,255 

6350 SYMBOL 193.7,31,63,127,127,255 )JE 

,255,255 

6360 RETURN * 



TABLEAU-BAS 

10 CLS:M0DE 1 >LK 

20 DIM scdD.nitdl) )NM 

30 sc(l)=500:n«$(l)="DAVE" >UL 

40 sc!2)=1000:ni$(2)="STEEVE" >XP 

50 sc(3) = 1500:m»(3) = "CHRIS" >«K 

60 scl4)=2000:ni»l4) = "MIKE" >U 

70 sc(5)=2500:ni»(5)="IAN" ;UA 

80 scl6)=3000:ni$(6)="NICK" )VD 

90 sc(7)=3500:mt(7) = "CYRIL" >WL 

100 sc(8)=4000:nillB)="BOB" >UX 

110 sc(9)=4500:ni«(9)="PETER" )XE 

120 sc(10)=5000:ni»(10)="FRED" )XT 

130 OPENOUT "RECORD.DAT" )UV 

140 FOR k=l TO 10 >BK 

150 WRITE I9,sc(k),ni»lk) TX 

160 NEXT >EC 

170 CLOSEOUT >RJ 
180 CALL ♦ 



30 



J5U 



TETHO 



B. BARBE 



Valable pour CPC 
464-664-6128 



Voici un jeu dont les règles n'ont pas besoin 

d'être expliquées en détail car il s'agit 

d'empiler des figures géométriques. 

Cela ne vous rappelle rien ? 
Alors tapez le listing et 
lancez-le, vous comprendrez mieux. 



o 




Chargement et lancement : 

Tapez et sauvez le premier programme sous le nom 
de TETDAT.BAS. Lancez-le par RUN, il sauvera auto- 
matiquement le fichier TETRO.BIN. Ensuite, tapez et 
sauvez le second programme sous le nom de TETRO.BAS. 
11 ne reste qu'à faire RUN "TETRO" pour lancer le jeu. 



10 A=&9000:F=U4C2:L=100:YHILE A(=F:F0R A=A TO AU5:READ C»:K= 
VAL("l , »C$):S=S«K*6Sb36KS«K)32767):lF A<=F THEN POKE A.K 
20 NEXT:READ D*:T=VALt"fc"*D») : IF TOS THEN PRINT CHR$(7);"Erre 
ur lif>ne";L:END ELSE L=US:UEND 
30 SAVE , tetro\b.li9000,lUC2 

100 DATA 00.00,00,00,00.00,00,00,00,01,01,00,01,00,00,00,0003 
105 DATA 00,00.00.00,19,H,3E,00,CD,OE,BC,3A,13,90,FE,01,03E1 
110 DATA C2,29,90,ll,8B,92,C3,2C,90,ll,7F,94,21,OO,C0,3A,0A48 
115 DATA 14,90,47.C5,E5,3A.15,90.47,C5,E5,D5,1A,22.DS,9A,122D 
120 DATA 32,0D,90,CD,8C,9B,D1,13,E1,23,23.23,23,C1,10,E9,18FB 
125 DATA El, CD, B9, 90, Cl. 10.DC.C9, 53,54,41, 54, *E,45, 58,54, 20E3 
130 DATA 4C,45.56.45.4C,3E,04,CD,90,BB,26,02,2E,02,11,58,2576 
135 DATA 90.06,04.E5,D5,C5.CD,75,BB,1A,CD,5A,BB.C1,D1,E1,2EFB 
140 DATA 24,13,10,EF,26.10,2E,OF,11,SC,90,06,04,E5,D5,C5.342A 
145 DATA CD,75,BB,1A,CD,5A.BB.C1,D1,E1.13,24,10.EF,26,0F,3C01 
150 DATA 2E,06,11.60,90.06,0S,ES.DS,C5.CD.7S,BB,1A,CD,5A,42FE 
155 DATA BB.C1.D1.E1, 13,24, 10, EF,C9,C5,06,08.CD.26,BC. 10.4ABD 
160 DATA FB.C1,C9.42,41.52,42,45,20,42,52,55,4E,4F.2E,20,5092 
165 DATA 20,50,52.45.53.45.4E,54,45,54,45,54,52,4F,2E,28.54FC 
170 DATA 30,35, 2F. 30. 31, 2F, 39,30,29. 2D.28, 31, 39.2F, 30, 31, 5801 
175 DATA 2F,39,30.29.5B.66,32.5D.2E,2E.2E,2E,2E.2E.2E,2E,5B82 
180 DATA 53.50,45.45,44,20,5B,66.31,5D,2E,2E,2E.2E,2E,2E,5F76 
185 DATA 2E,2E,44,52.4F.50.20,20,5B,66,34,5D.2E.2E.2E.2E,63S1 
190 DATA 2E,2E,2E.2E,4E,45,S8.S4.2Û.20.SB.66,39,SD.2E,2E.673B 
195 DATA 2E.2E.2E,2E.2E,2E,52,49, 47,48,54. 20.5B.66,38,5D,6B43 
200 DATA 2E,2E,2E.2E,2E,2E,2E.2E,52,4F,54,41,54,45,5B,66,6F43 
205 DATA 37, 5D,2E,2E,2E.2E.2E.2E,2E.2E.4C, 45,46,54,20, 20, 72B2 
210 DATA CD,5A,9B,3E,01.32.13,90,CD,16,90,CD,16,9B,3E,04.78BB 
215 DATA CD,90.BB.21,F4,90.06,06.C5.E5.26.02,2E.0A,CD, 75.7FDO 
220 DATA BB. El, 06, 12, 7E, CD, SA, BB. 23, 10, F9, CD, 75, 92. CD, 75, 8826 
225 DATA 92.C1, 10.E4. CD, 75,92,26, 09. 2E.0B. CD, 75,BB,3E,03,8EE7 
230 DATA CD,90.BB,21,3A.92,06,04.7E.CD,SA,BB,23,10.F9,CD.964F 
235 DATA 06. BB. 06.0F, CD. 75.92,10, FB. 26. OS. 2E.0B. CD. 75, BB.9C6S 
240 DATA 21,3E,92.06.0D,7E.CD.5A.BB,23.10.F9.06,05.CD,75,A242 



245 DATA 
250 DATA 
255 DATA 
260 DATA 
265 DATA 
270 DATA 
275 DATA 
280 DATA 
285 DATA 
290 DATA 
295 DATA 
300 DATA 
305 DATA 
310 DATA 
315 DATA 
320 DATA 
325 DATA 
330 DATA 
335 DATA 
340 DATA 
345 DATA 
350 DATA 
355 DATA 
360 DATA 
365 DATA 
370 DATA 
375 DATA 
380 DATA 
385 DATA 
390 DATA 
395 DATA 
400 DATA 
405 DATA 
410 DATA 



92,10.FB,CD, 

FS.26.11,2E, 

03.90.06.0F. 

21,66.92,06 

92, 10. FB. CD. 

FS.26,11,2E, 

00. 90.06. ÛF. 

56. 45, 4C. 20 

A4, 06, 06, CS, 

El. 23. 23. 13. 

2D.32.29.3A, 

2E.09.1E.17 

30,30.30.30, 

7A,7A,30,7A. 

7A.7A.7A.30, 

30.30, 7A, 30, 

7A.30.30.7A, 

30.30,30.30. 

7A.30.3O.7A. 

7A,30,7A,30, 

30,30. 7A. 30, 

30,30.30.30. 

6B.6B.6B.6B. 

30.30,30.30. 

30,30.69. 6A. 

30.30,30,30. 

30,30.30,30. 

30.30.30.30. 

30,30.30.30, 

30. 30.69. 6A, 

30.30,30.30, 

30.30,30,30, 

30,30.30.30, 

30,30,30.30, 



18.BB.FE, 
10.CD.7S, 
CD, 75, 92, 
0D,7E.CD, 
ÎB.BB.FE. 
10. CD, 75, 
CD. 75, 92, 
28.30,20, 
E5.D5.7E, 
C1.10.EC, 
5F.F5.ES, 
CD.S0.BC, 
30,30,30. 
7A.7A.30, 
7A, 30.30 
7A.30.7A, 
7A.7A.7A 
7A.30.30, 
30,30,30 
7A.30.30, 
7A.7A.7A 
30,30.30, 
6B.6B.6B 
30.30,30, 
30.30,30 
30,30,69, 
30,30.30 
30,30.30, 
30.30,30 
30,30.30 
30,30.69 
30.30,30, 
30,30,30 
30.30,30, 



B2.91.FE.3A.D2.B2. 
CD. SA, BB, 26. 30. 94, 
26.05.2E, OB.CD. 75, 
23, 10, F9, 06, 05, CD, 
F2,91,FE.33,D2.F2, 
CD. SA. BB. 26, 30. 94. 
C9.4B. 45. 59.53. 4C. 
3A.5F, 21, C3, 90.11. 
84,EB,BE.C2.A3.98. 
45.4E.54. 4F, 20.28. 
00.3E,00.26,01,16, 
F1.C9.30,30.30,30, 
30,30,30,30.30,30, 
7A,30,7A,7A.7A,7A, 
30,30,30, 7A, 30, 30, 
30,30,7A,7A.30,30, 
30.7A.30,iA,30,30, 
30,30,30,7A,30,7A, 
30,30,7A,30,7A,30, 
7A,30,30,7A,30,30, 
30.30,30,30,30,30, 
30.30. 68, 6B.6B.6B, 
6B.6B.6B.6B.6B.67. 
30.30,30,30,30,30, 
30,30,30,30,30,30, 
30,30,30,30,30,30, 
30.69.6A. 30,30,30, 
30.30.30.30.30.69. 
30,30.30.30,30,30, 
30,30,30,30,30,30, 
30.30,30,30,30,30, 
30,69, 6A, 30, 30. 30. 
30,30.30,30,30,69, 
30.30,30,30,30,30, 



91.AC17 
32.B36D 
BB.B95S 
75.BF5C 
91.C9AA 
32.D100 
45.D71A 
4B.DB71 
D1.E4A2 
30.EA60 
12.EEB3 
30.FS44 
7A.F88E 
30.FF06 
7A.040C 
30.08C8 
7A.0E62 
30, 12D4 
30,1746 
7A, 1C96 
30.20BE 
6B.24E2 
6A.2B8D 
30.2E8D 
30,3200 
30,3573 
30.38E6 
6A.3C59 
30.3FS9 
30.42CC 
30.463F 
30.49B2 
6A.4D2S 
30,5025 
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415 DATA 
420 DATA 
425 DATA 
430 DATA 
435 DATA 
440 DATA 
445 DATA 
450 DATA 
455 DATA 
460 DATA 
465 DATA 
470 DATA 
475 DATA 
480 DATA 
485 DATA 
490 DATA 
495 DATA 
500 DATA 
505 DATA 
510 DATA 
515 DATA 
520 DATA 
525 DATA 
530 DATA 
535 DATA 
540 DATA 
545 DATA 
550 DATA 
555 DATA 
560 DATA 
565 DATA 
570 DATA 
575 DATA 
580 DATA 
585 DATA 
590 DATA 
595 DATA 
600 DATA 
605 DATA 
610 DATA 
615 DATA 
620 DATA 
625 DATA 
630 DATA 
635 DAiA 
640 DATA 
645 DATA 
650 DATA 
655 DATA 
660 DATA 
665 DATA 
670 DATA 
675 DATA 
6B0 DATA 
685 DATA 
690 DATA 
695 DATA 



30,30, 

30.30, 

30,30, 

30.30 

30,30. 

30,30 

30,30. 

30.30, 

6C.6C. 

6B.6B. 

30.30 

67.30, 

30,30, 

67, 6A 

30.30. 

30,30, 

69,30. 

30,30, 

69, 6A, 

30.30. 

30.69. 

69, 6A, 

30.30. 

69. 6A, 

30,30, 

30,30, 

69,30. 

30,30, 

69. 6A. 

30,30 

30,30, 

69, 6A, 

30,30, 

69, 6A. 

30,30. 

6C6C 

69.30, 

30.30 

69, 6A, 

6C.6C 

30,30, 

30.30, 

61.68. 

65. 6A. 

41,52. 

6E.74. 

00,00. 

00,00, 

C8.C8 

C8.C8 

CO.CÛ 

OC, OC, 

02,08. 

CC.CC, 

30,30. 

A5.5A, 

79, B6. 



69.6A.30 
30,30,30 
30.30,30 
30,30.30 
30,30.30 
69.6A.30 
30.30,30 
30.30.30 
6C6C.6C 
6B.6B.67 
30.6A.78 
30.30.30 
30.30,69 
30,30,30 
30,30,69 
30.6A.30 
30.30,30 
30,30,69 
30.30,30 
30.30,69 
3O.6A.30 
30.30,30 
30,30,69 
30.30,30 
30,30,69 
30.6A.30 
30.30,30 
30,30,69 
30.30,30 
30,30,69 
69.6A.30 
30,30.30 
30.30,69 
30.30,30 
30,30,69 
65,6A,30 
30.30,30 
30,30,69 
30,30,30 
6C.6C.65 
30.68. 6B 
30.30.30 
6B.6B.67 
30.3O.3U, 

a 

65.54.45 
00.00.00 
00.00.00 
C8.C8.C8 
C8,C8,C8 
D5,EA,C5 
OC.OC.SD 
CC, CC, CC 
02,08,30 
30,30,02 
FO.FO.FO 
2D.1E,3C 



30.30,30,30, 
,30,69.6A,30, 

30.30,30,30, 
,30,30,30.30. 

30.30,30.30. 

30,30.30,30, 
,30.69,6A,30. 

30.30.30,30, 
,6C,6C,6C,6C, 
,30.30,30,30, 
,78.78,78,69. 
, 30.30.66, 6C. 
,30.30,30,30, 

30.30,30,69, 
,6A.30,30,30 
,30.30.30,69 

30. 30, 6A. 30. 

6B.6B.6B,6B, 

30,30,30,69, 
,6A. 30.30, 30, 
,30,30,30,69, 
,69,30,6A,30, 
,66.6C,6C.6C. 

30.30,30.69, 

6A. 30, 30, 30. 
,30.30,30,69, 
. 30.30. 6A, 30. 

30.30.30.30, 
.30,30.30,69, 

6A. 30.30, 30, 

30.30,30,69, 
,30.69,6A,30, 

6A, 30. 30, 30, 
,30,30,30,69, 
.6A.30.30.30. 
.30,30,30,69, 
,30,30.6A,30, 
,30,30,30,30. 
,30.30,30,69. 

66.6C.6C.6C, 
.6B.6B.6B.67. 
.30.30.6A, 78. 

30.30.30.30. 

30.30,30.69. 

4.:. 7;:, 75, 6k. 

,54, 52.4F, 04, 
.00,00.00,00. 
,00,00.00.00. 

C8,C8,C8,C8, 
,C8,C8,C8,C8, 

CA,D1,E2,85. 

AE,4D,8E,59, 
.CC.DD.EE.CD, 
,30,30,30.75, 
,08,FO,FO,FO, 
,F0,02,08,3C 
,3C,3C,3C,02, 



30.30,30, 

30.30,30, 

30.69.6A, 

30,30.30. 

30.30,30, 

30.30,30, 

30,30,30, 

30.69.66, 

6C.6C6C, 

30,30,30, 

68.6B.6B, 

6C.6C.6C, 

30,30,68. 

30,30.30, 

30,30,30, 

6A. 30.30, 

30,30,30, 

67.30.6A, 

6A,30,3O, 

30.30,30, 

6A.30.30, 

30,30,30, 

65.30.6A, 

30.30,30. 

30.30,30, 

6A.30.30, 

30.30.30. 

30,30,6A, 

68.68,68. 

30.30.30, 

6A,30,30, 

30,30,30, 

30.69.6A, 

6A.30.30. 

30,30,30, 

6A.30.30. 

30,30,30, 

30.30.6A. 

30,30,30. 

6C.6C.6C, 

30,30,30. 

78.78.78 

30.30.66 

30.30.30 

6F, 20, 70. 

08.00,00, 

00.00,00 

00,04,08 

C8,C8,C8, 

C8,C8,C8 

4A.C0.C0, 

A6.0D,0E 

CE,D9,E6, 

BA.6S.9A, 

FO.FS.FA, 

08,FC,FC, 



30,30,30, 

30,30,30, 

30,30,30, 

30.30,69, 

30.30,30. 

30,30,30, 

30,30,30, 

6C,6C,6C, 

6C,6C,65, 

30,30.30, 

6B.6B.6B. 

65.6A.30, 

6B.6B.6B. 

30,30,30 

69,30,30, 

30.30,30 

69.6A.30. 

30,30.30, 

30,69,30, 

69.6A.30, 

30.30.30, 

69,6A,30, 

30,30,30, 

30,30,30, 

69,30,30, 

30,30,30, 

69.6A.30. 

30,30.30, 

6B.6B.67. 

69.6A.30 

30.30,30. 

69.6A.30 

30,30,30, 

30,30.69 

69.66.6C, 

30,30,30, 

69,6A,30, 

30,30,30 

30.30.30, 

65,30,30, 

30.30,30. 

69.68.6B. 

6C.6C.6C, 

30.30.30. 

72.65,73. 

00,00,00 

00.00,00, 

C8.C8.C8, 

C8.C8.CB, 

O2,O8,C0, 

C0.C0.02, 

0C,0C,0C, 

8D,4E,CC, 

71.B2.25, 

E5.DA.F1, 

7D.BE.6D, 

FC.FC.FD, 



30,5398 
30,570B 
30.5A7E 
6A.5DF1 
30.60F1 
30,6464 
30.67D7 
6C6C36 
68, 72EB 
30.770E 
6B.7D3B 
30.8207 
6B.6664 
6A,8A4B 
30.8DF4 
30.91A1 
30.9587 
30.9A1A 
6A.9E73 
30.A259 
30.A63F 
30. AA9B 
30.AF2A 
6A.B310 
30.B6BC 
30.BA69 
30.BE4F 
30.C1C2 
6A.C703 
30.CAE9 
30.CECF 
30.D328 
30.D70E 
6A.DB67 
6C.DFC1 
30.E41B 
30.E801 
30.EB74 
66.EF56 
30,F54E 
30.F9A9 
6B.FEEA 
6C.U433 

4:,o;ed 

65.0D6C 
00, 104D 
00, 1040 
C8, 1379 
C8, 1FF9 
C0.2AE3 
08,353D 
0C.389D 
CC, 436F 
1 A, 4961 
F2.537C 
9E.SB7B 
FE.63DA 



700 DATA 
705 DATA 
710 DATA 
715 DATA 
720 DATA 
725 DATA 
730 DATA 
735 DATA 
740 DATA 
745 DATA 
750 DATA 
755 DATA 
760 DATA 
765 DATA 
770 DATA 
775 DATA 
780 DATA 
785 DATA 
790 DATA 
795 DATA 
800 DATA 
805 DATA 
810 DATA 
615 DATA 
820 DATA 
825 DATA 
830 DATA 
835 DATA 
840 DATA 
845 DATA 
850 DATA 
855 DATA 
860 DATA 
865 DATA 
870 DATA 
875 DATA 
880 DATA 
885 DATA 
890 DATA 
895 DATA 
900 DATA 
905 DATA 
910 DATA 
915 DATA 
920 DATA 
925 DATA 
930 DATA 
935 DATA 
940 DATA 
945 DATA 
950 DATA 
955 DATA 
960 DATA 
965 DATA 
970 DATA 
975 DATA 
980 DATA 



ED.DE.F9, 

D?,EB,C7, 

45,20,42, 

54,45,54, 

7F, 00,00, 

00,00,00. 

7B. 00,00. 

FF, 00.00, 

00.00,00 

7F, 00,00. 

00,00,00 

3F, 00,00. 

7F. 00. 00, 

7F, 00,00. 

08.00.00. 

7B, 00.00, 

7B,04,08. 

FF, FF, FF. 

F3.F3.F3 

F3.3F.3F, 

FF, 00,00, 

F3,F3,A2, 

0C,0C,59, 

F3.F2.F0 

F1.F2.FF, 

42,45,20, 

20,54,45. 

07,06,02, 

02,03.06. 

00,00,00, 

06,04,00, 

02,00.01 

02.03,00, 

01,00,07, 

00,00,02, 

07,05.04. 

01,04,02, 

02,00.00. 

07,01,07, 

00,00,03, 

06,02,00, 

04,00,04, 

00,00,00, 

00,00.07, 

C6,C0,C8, 

C6,C0,C8, 

C8,C0,16, 

CB,C0,18, 

68.C1.C8, 

E0,C5,30, 

96.C5.90 

E2,C5,32, 

92, CS, 94, 

42,52,55, 

1A. 05.0F. 

14.00.06. 

CA.0A.9B, 



F6,AD,5E,FC 
CB,D3,E3,87 
52, 55, 4E, 4F 
52, 4F, 04, 08 
3F, 7F, 00, 00 
00,00,00.00 
BF, 3F. 00. 00 
00.00.00.00 
FF,FF,00,00 
B7, 7F, 00,00 
00.00.00,00 
BF, 3F. 00.00 
B7,7F,00,00 
B7. 7F. 00,00 
BF.7B.00.00 
BF.7B.00.00 
00.00,00.00 
3F, 3F, 3F, 3F 
CD,00,00,C9 
3F. 3F, 3F. 3F 
00,00,00,00 
A6, OC, OC. 59 
51,F3,F3.A2 
F0,F1,F2.FF 
FF,F1,F2,F0 
42, 52, 55, 4E 
54, 52,4F, 08 
03,00,00,04 
07.07,06.02 
00,01,03.08 
00,02,04,00 
00,05,03,01 
00,02,04,00 
03,03,00,01 
03.00,00,06 
01,00,00.00 
04.06,08,01 
00,00,00,08 
00,02,00,00 
00,05,03,06 
00,00,00,03 
06,05,04,00 
00,00,00,00 
02,00,00.00 
CO.CA, CO.CC 
C0,18,C1,68 
C1,66,C1,C4 
C1,16,C1,66 
C0,90,C5,92 
C6,32,C6,92 
C5,92,C6,94 
C6,92,CS,94 
C5,E2,C5,E4 
4E,4F,00,CO 
06. OB, 07, 15 
0E,0F,0F,18 
47,DD,23,DD 



FC.FC.02 
C3.C3.C3 
52,45.53 
7F, 00.00 
FF.00,00 
08,00.00 
3F, 00,00 
00,04.08 
FF.00,00 
7F. 00.00 
FF, 00,00 
7B.00.00 
7F, 00, 00 
7F. 00. 00 
7B.00.00 
7B.OO.00 
00.00.00 
3F. 3F. 3F 
08.F3.F3 
3F. FF. FF 
00,04.08 
FC.FC.S9 
F3.F3.00 
F1.F2.FB 
F1.F3.F3 
50,52.45 
04,01,00 
05,08,08 
00.00.04 
00,00.00 
02,03.0? 
02,00.00 
06.02.00 
05,04,02 
00,00,00 
00,00,05 
00,00,00 
06.04,01 
00,00,08 
00,00,00 
05,03,09 
00,00,00 
06,04.00 
00,00,00 
C4,C0,14 
66.Cl.CA 
14, Cl, 16 
CA.C0.16 
94.CS, 96 
94,C5,E4 
E2.C5.32 
E4.C5.E2 
44.C5.42 
00,01,06 
09,09,00 
21.D7.9A 
10.FA.3E 



08,C3.C3 
C3.42.41 
4S.4E.S4 
B7.7F.OO 
FF, FF. 00 
BF.7B.00 
FF, FF. 00 
00,00,00 
3F, 7F, 00 
04,08,00 
FF, FF. 00 
BF.iB.U4 
B7.7F.OO 
B7.7F.00 
BF.7B.0U 
BF.7B.00 
FF, FF. FF 
F3.F3.F3 
F3.F3.F3 
FF. FF. FF 
00,F3,F3 
A6.FC.FC 
04.08.F3 
F7.F1.F2 
F3.F3.42 
53.45.4E 
00,02.03 
05.04,01 
01,05,08 
00.01.00 
02,02,03 
00,00.00 
00,00,00 
00,05,01 
00,00,00 
08,02,03 
00,07,01 
00,00,00 
02,01,00 
00,04,00 
01,00,00 
00,00.00 
00,00,00 
00,05,03 
Cl, 64, Cl 
C0,C4,C0 
C1.66.C1 
C1.18.C1 
CS.98.C5 
C5,34,C6 
C6, 90.CS 
C5,32,C6 
41,52,42 
02,02,03 
OA.OE.OB 
3A.09.90 
09.DD.46 



C3,C3,6FA5 
52.42.79A4 
45.20.7E15 
00,3F.82SA 
00,00,8793 
00, BF. 8998 
00,FF,8F0C 
00,00,9017 
00.3F, 9510 
00,00.9807 
00.BF.9CC2 
0B.B7.A13t 
00,B7,A60E 
00.04.AA33 
OO.BF.AEAB 
UU.BF.BJ9U 
FF.FF.B912 
F3.F3.C2C6 
F3.F3.CDE6 
FF.FF.D7CA 
00,51,DBOC 
S9.A6.E53F 
F3.F3.ED54 
FB.F7.FCA4 
41.S2.09DA 
54.45.0E6D 
06,07,103F 
00,00.1075 
01,04, 10B0 
08.02, 10C8 
01,03, 10EF 
08.04,1111 
07.02. 1120 

OU. UU, 1140 

01,03,1163 
00,00,1186 

U1.U4.11AD 
00.00. 11C4 

00,00, iieo 

04,06,1201 
00,00, 121E 
08.01, 123E 
00,00,1248 
C4,C0,13DD 
66.C1.1EA6 
C6.C0.2971 
C6,C0,32D4 
66.C1.3B94 
90,C5.46S7 
32, C6, 5035 
E0.Cb.5B2E 
96, CS, 6620 
45,20,6EAS 
11,04.; lut 

oe,oc,?ic7 

FE, 00, 7672 
01.DD.7D7A 
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985 DATA 4E.01.C0. 32.BC. C9.Û6,00. ÛE, Û0.CD.38, BC.DD.21. D7. B3F ( 

990 DATA 9A,06,10,CS.DD.7E,00,DD,46,01.DD,4E,01,CD,32,BC,8AD2 
995 DATA DD. 23. DO, 23. Cl. 1Û,EC.C9,06.0Û,OE.OO.CD.38.BC.DD,920A 
1000 DATA 21,D?.9A,06.ÛB,CS,DD,7E,00,DD.46,01,DD,4E,01,CD,9BE7 



1005 DATA 32.BC.DD.23.DD.23.C1.10 
1010 DATA BC.06, 10,10.01. C9.C5. 78 
1015 DATA C3.63,9B,Ob.00,0E,0O.CD 
1020 DATA 78.06, 00.0E.00,CD.32,BC 
1025 DATA 30,CA.F6.9B.FE,31.CA,FC 
1030 DATA CA,08.9C,FE,34,CA,0E,9C 
1035 DATA 1A.9C,FE,37,CA.20,9C,FE 
1040 DATA 9C.FE,65.CA.32.9C,FE,66 
1045 DATA FE.6b.CA.44,90,FE,69.CA 
1050 DATA 6B.CA, 56. 9C.FE.6CCA.SC 
1055 DATA CA,68.9C,C3,6E,9C,11.C8 
1060 DATA 6E,9C.11,1E,97,C3.6E,9C 
1065 DATA 97,C3,6E,9C.U,64,97,C3 
1070 DATA 11,78,97,C3,6E,9C,11,8A 
1075 DATA 6E.3C, 11,65, 97, C3.6E.9C 
1080 DATA 97,C3,6E,9C,11,1B,98,C3 
1086 DATA 11.5F.98,C3,6E,9C,11,B1 
1090 DATA 6E,9C,11,C9,98,C3,6E,9C 
1095 DATA 9A.1A.4F,13,1A,47,13,F3 
1100 DATA 10,F9,E1,CD,26,BC,C1,10 
1105 DATA 9A.FE,01.CA.A1,9C.47.05 
1110 DATA F7,ll,E6.9C,01.0A,O0,ED 
1US DATA 01,CA,BF,9C,47,05,C5.06 
1120 DATA FO.gC.Ol.OA.OO.ED.BO.SA 
1125 DATA DD.9C. 47, 05X5.06,28.23 
1130 DATA 01.28,OO.ED.BO,C9,00.00 
1135 DATA 00,00,00.00,00,00,00,00 
1140 DATA 00,00,00,00,00,00,00,00 
1145 DATA 00.00,00,00,00,00,00,00 
1150 DATA 00,00,00,00,00,00,00,00 
1155 DATA 46,C1,0C.00.8B,C7,48,C1 
1160 DATA 8C,C7,4C,C1,F0,00,8E,C7 
1165 DATA FC.OO,92,C7.S2.C1,00,00 
1170 DATA 00,00,00.00,00,00,00,00 
1175 DATA 00,00.00,00,00,00.00.00 
1180 DATA 21.2C,9D,11.56.9D,01,2A 
UBS DATA 3A,09,90.FE.Û1.CA.A8.9D 
1190 DATA HD,:3.DLi.23.DD.:3.1u.F2 
1196 DATA BC.DD.ES.C0.C4.9D.DD.E1 
1200 DATA 00.AE,77,C9.DD.7E,05.BC 
1205 DATA 90.DD.21.2C.3D.FE.01.CA 
1210 DATA DD,23,DD.23,DD.23,DD,23 
1215 DATA CD.29,BC.C9,3A,11.90.DD 
1220 DATA DD,6E,OÛ,22,D5,9A,3A,09 
1225 DATA 9B.DD.23,DD,23,C1,10,E4 
1230 DATA 47,C5,DD,66,Û1,DD,6E,00 
123S DATA 32.0D,90,CD,8C,9B,DD,23 
1240 DATA 90,DD,21,E6,9C,47,C5,DD 
1245 DATA 3E, 08, C6, 30, 32, 00, 90, CD 
1250 DATA E5,C9,01,3A,62.9E,3C,FE 
12SS DATA 9£,32,62,9E,ED,5F,E6,07 
1260 DATA 00,90,FE,02,C2 > 8A,9E,3E 
1265 DATA 00,CA,97,9E,3E,04,C9,3A 



C9,06.00.0E.OO.CD.38,9F74 
00,OE.OO.CD,32,BC,C1.A4ED 
BC,06.08,10.01.C9,C5,AA30 
C3,7C.9B,3A,0D,90.FE,B0E7 
FE.32,CA,02,9C.FE,33,BACB 
35,CA,14,9C,FE.36.CA.C38A 
CA,26,9C.FE.64,CA,2C,CC15 
38,9C.FE,67,CA,3E.9C,D5B7 
9C,FE.bA,CA,S0.9C.FE.DFFA 
FE,78.CA,62.9C,FE.7A,EA03 
C3.6E.9C. 11.0C.97.C3.F251 
30,97,C3,6E,9C,11,42,F8E6 
9C.11,66,97.C3.6E.9C.00EE 
C3,6E,9C,11,EA,96,C3,092E 
D7,97,C3,6E.9C,U.F3,11BB 
9C, 11, 30,98, C3.6E.9C, 1960 
C3,6E,9C,U,A?.38,C3,213F 
EB,98,C3.6E,9C.2A,DS,29E8 
E5.41,1A,A£,77.23.13,2FC5 
FB,C9,3A,09,90,21,3E,3814 
06.0A.23,10,FD.C1,10,3ED6 
3A,0A.90,21.84,9A,FE,4619 
23,10.FD,C1,10.F7,11.4C69 
90,21, 26,99,FE, 01, CA, 5319 
F0.C1.10,F7.11,04,9D,597B 
00,00,00,00, 00, 00,00, SCOA 
00, 00,00,00, 00.00,00,5C0A 
00,00,00, 00, 00, 00, 00, 5C0A 
00, 00,00,00,00,00,00, 5C0A 
00,00,00,CO,00,86,C7,SE17 
00,8A.C7,4A.C1, 30,00. 64DA 
C1,3C,00,90,C7,S0,C1,6D32 
00. 00, 00, 00. 00. 00, 00, 703A 
00.00, 00. 00, 00, 00, 00, 709A 
00.00.00.00.00,00,00. 709A 
ED.B0.C9.DD.21.S6.9D,77ÛA 
4 /'. DD. 23. DO. 23. DD. 23. . : Ebf- 
66,03,DD,6E,02,CD,29,85FA 
74.Ù3.DD, Î5.02.DD. 7E.906/ 
DD.7t.04.BD.C0.3A. 09. 9850 
9D.3D.47,DD.23,DD,23,A07B 
F2.DD. 66,03, DD.6E,02,A810 
E6,9C,47,C5,DD.66.01,B036 
C6,3O,32,0D,9O.CD,8C,B703 
3A,12,90,DD,21,F0,9C,BF82 
D5,9A,3A,0A,90,C6,30,C678 
23,C1.10.E4,C9,3A,11,CE04 
01,DD,6E,00,22,DS,9A,D640 
9B,DD,23.DD,23,C1,10,DD10 
C2,71,9E,3E,01, 32,62, E3DF 
00,C0,3A,62,9E,C9,3A,EBE3 
C9,ED,5F,3C,E6,01,FE,F3D6 
90,FE,00,C2,A2,9E,3E,FAE8 



1270 DATA 
1275 DATA 
1280 DATA 
1285 DATA 
1290 DATA 
1295 DATA 
1300 DATA 
1305 DATA 
1310 DATA 
1315 DATA 
1320 DATA 
1325 DATA 
1330 DATA 
1335 DATA 
1340 DATA 
1345 DATA 
1350 DATA 
13S5 DATA 
1360 DATA 
1365 DATA 
1370 DATA 
1375 DATA 
1380 DATA 
1385 DATA 
1390 DATA 
1395 DATA 
1400 DATA 
1405 DATA 
1410 DATA 
1415 DATA 
1420 DATA 
1425 DATA 
1430 DATA 
1435 DATA 
1440 DATA 
1445 DATA 
1450 DATA 
145S DATA 
1460 DATA 
1465 DATA 
1470 DATA 
1475 DATA 
1480 DATA 
148S DATA 
1490 DATA 
1495 DATA 
1500 DATA 
1505 DATA 
1510 DATA 
1515 DATA 
1S20 DATA 
1525 DATA 
1530 DATA 
1535 DATA 
1540 DATA 
1545 DATA 
1SS0 DATA 



04.C9.3E 

75,BB,F1, 

42, 45, CD, 

CD. 16,90, 

63.9E.32, 

90,CD,7F. 

01,90,32, 

77,01,21, 

CC,19,9E, 

90,32,11, 

32,12,90, 

9E.C3.90, 

E8.03.2B, 

1E.BB.C2, 

9B,3E,42 

3A. 10,90. 

1E.BB.C0, 

90,FE,01, 

32,08,90, 

C2.AD.A0, 

C2.0F.A0, 

C2,Û7,A0, 

01,32,OE, 

0F.90.FE, 

00.32.0B, 

01,32,0F, 

DD.66,01, 

CA.SB.AO. 

BC,10,FB, 

01,32,08, 

CA,86,A0, 

47,C5,DD. 

C1.DD.23, 

DD.21.E6, 

OO.CA.Dl, 

A0.C5.06, 

FE.C3.CA, 

C4.JA.U6, 

11,90,DD, 

DD,74,01, 

C3,90,9F. 

90.DD.21, 

7E,FE,00, 

C1.DD.23, 

3E.9E.CD, 

CD.1A.A2, 

9F, 47,41, 

42,45,20, 

26,06,2E, 

13, 10.F9 

F4,C9,06, 

FF.CD.SÙ, 

CD.50,BC, 

9C.47.CS 

26,BC,CD 

10.E0.CD 

4C.C7.E5 



OS, C9.3A, 03,90 
CD,5A,BB,C9,42 
60,91, CD, 80.9D 
CD.65,90,CD,16 
09,90,CD,7F,9E 
9E.32.12.90.3E 
02, 90, 32,0F. 90 
04,90.34. 3E.0O 
3E,01,32,OC,90 
90.CD.F7.9A.CD 
CD.8B,9C,CD,3E 
9F.3A,03,90,CB 
7C,FE.00,C2,62 
6D.9F,06.05.C5 
CD,1E,BB,C2,8C 
FE,Û1,C4, 54,9F 
3E.12.CD.1E.BB 
CA,AB,9F,3A.0E 
3E.03.CD, 1E.BB 
3E,0B,CD,1E,BB 
3E.0D.CD. 1E.BB 
C3,90,9F,3E,2F 
90,C3,AB,9F,3E 
01,CA,90,9F,3A 
90,C3,2C,A0,3E 
90,C3,90.9F.3A 
DD,6E,00,23,23 
3E.01, 32, 08,90 
C1,7E,FE,00,CA 
90,C1,DD,23,DD 
C3,90,9F,CD,3E 
66,01,DD.6E.OO 
DD,23,10,EA,CD 
9C,47,C5,DD,66 
A0,FE,C3,CA,D1 
07,CD.26,BC,10 
EA,A0,3E,01,32 
90,FE,00,CA,FC 
21,E6,9C,47,CS 
DD, 75,00, Cl, DD 
42,41,52,42,45 
E6,9C,47,C5.DD 
CA,50,A1,FE,C3 
DD.23,10,DF.3A 
F4,9D,CD,8C,9D 
CD,52,A2.3A,06 
4D,4S,20,4F,56 
42, 52, 55, 4E, 4F 
0D,CD,7S,BB,U 
06.06.21, 60, EA 
OC.CS, 06,00,2E 
BC,06,01,2£,0D 
C1,10,DE,C9,CD 
DD.66.01.DD.6E 
26,BC,DD,74,01 
3E,9E,C3,AE,9F 
3E,00,32,18,A2 



C6,30,FS,26 

52, 55, 4E, 4F 

3E, 00,32, 13 

9B.CD.AS.9E 

32,11, 90,CD 

00, 32. OB, 90 

DD, 21, 04, 90 

32,0E,90,3A 

3A,0A,90,3: 

63.9E.32.0A 

9E,3A,0B.90 

27,57,3E,15 

9F,C1,10,F2 

CD.54.9F.C1 

9F, C3, 81, 9F 

3E. 00. 32. 08 

C4,F6,9F,C3 

90,FE,01,CA 

C2,37,A0,3E 

C2.B0.A2.3E 

C2.FF.9F.3E 

CD, 1E,BB,CÛ 

01,32,10,90 

OB,90,FE,01 

01, 32, OB, 90 

11.90.DD.21 

7E,FE,00,CA 

C3,74,A0.C5 

74,A0,FE,C3 

23,10,C4,3A 

9E.3A, 11,90 

23. 23, DD. 74 

3E,9E,C3,90 

01.DD.6E.00 

A0,3E,01,32 

FB,C1,7E,FE 

08, 90, Cl, DD 

A0,C3,90,9F 

DD,66,01,DD 

23, DD, 23, 10 

20.42,52.55 

66.01.DD.6E 

CA,50,A1,3E 

08, 90, FE. 00 

3E.01,32,61 

90,FE,01,CA 

45,52,20,21 

CD,C2,A1,3E 

81, Al, 06, 00, 

2B,7C,FE,00 

02,26,07,16 

26,07, 16, OC 

3E,9E,3A,11 

00, CD, 26, BC 

DD,75,00,C1 

00, 18. 3E, 18 

06.0C.7E.FE 



,11,2E,09 
,20,42,41 
,90, CD, SA 
.CD.4B.92 
,63,9E,32 
,32.10,90 
,DD,77,00 
,0B,9O.FE 
,09,90.3A 
,90. CD, 7F 
, FE.01.CC 
,92,47, CS 
,C9,3E,42 
.10.F9.CD 
,CD,38.9B 
.90.3E.42 
,2E,A1,3A 
.AB.9F.3E 
.ÛA.CD.IE 
,14,CD,1E 
.0E.CD.1E 
,C3,F6,9F 
,C3,AB,9F 
.C2.27.A0 
,CD,19,9E 
.E6.9C.47 
,5B,A0,FE 
,06. 07, CD 
,CA,74,A0 
,08.90,FE 
.DD.21.E6 
.01.DD.7S 
,9F,3A,11 
,2B,2B,7E 
,08,90,C3 
.OO.CA.EA 
,23,00,23 
,CD,3E,9E 
,6E,00,2B 
,EA,CD,3E 
,4E,4F,3A 
,00. CD, 59 
,01,32,08 
.CA.E7.A1 
.A4.CD.8S 
,98,A1,C3 
,21,42,41 
,00,32,06 
,1A.CD,SA 
.C...B8.A1 
,ÛC,iE,OD 
.1E.17.3E 
,90,DD,21 
,CD,26,BC 
,00,23,06 
,32,19,A2 
,00,C2,3S 



CD,O0B4 
52.07FB 
9B.0EFF 
CD, 1839 
OA, 1ECC 
32.2429 

01.2E5S 
12.32D0 
9E.3B15 
19,423F 
21. 48F 7 
CD.S123 
73,5964 
C9.625E 
CD. 6843 
10,7007 
00.77D3 
BB.7E0B 
BB.8615 
BB.8DC9 
3E,9b6D 
Jn , yLLo 
3E.A3F5 
3E.A91F 
C5.B04A 
C3.B821 
26.BE8B 
3E.C84A 
00, CE 7A 
9C.D760 
OO.DDES 
90.E616 
FE.EE03 
EA.F6F0 
AO.FFAD 
10.079C 
3A.106B 
2B.177D 
9E, 1F8S 
11.24C4 
A4.2D39 
90.34F5 
CD.3D94 
A4, 4630 
12, «21 
S2.526D 
30,57DO 
BB.5D7S 
10.63D8 
3E.67SA 
FF.6C35 
E6,74EE 
CD, 7D50 
23,8546 
21.6B6B 
,A2,91B4 
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155S DATA 
1560 DATA 
1565 DATA 
1570 DATA 
1575 DATA 
1580 DATA 
1585 DATA 
1590 DATA 
1595 DATA 
1600 DATA 
1605 DATA 
1610 DATA 
1615 DATA 
1620 DATA 
1625 DATA 
1630 DATA 
1635 DATA 
1640 DATA 
1646 DATA 
1650 DATA 
1655 DATA 
1660 DATA 
1665 DATA 
1670 DATA 
1675 DATA 
1680 DATA 
1685 DATA 
1690 DATA 
1695 DATA 
1700 DATA 
1705 DATA 
1710 DATA 
1715 DATA 
1720 DATA 
1725 DATA 
1730 DATA 



01,32, 

El, CD, 

A2.21, 

06,90 

CD, 87, 

3E,00 

01,90, 

A5.9E, 

OC, 90, 

A2,FE, 

0E.9D. 

A2,CD, 

CS,DD, 

A3, CD, 

DD,23 

9F, CD 

C3,39 

21, FA 

DD.23, 

85, A4, 

00. CA, 

07, CD, 

A3.3E, 

21, FA, 

DD.23, 

20,42, 

A4,FE. 

FE.04, 

07. CA, 

A4, 23, 

A4, CD, 

2B,2B 

A4, CD, 

C3.44, 

06,08, 

01,1F. 



If., A. 

51, A4 

5C.CI, 

El, 23 

A2.3A, 

CD, 50, 

C9.3A, 

3E,00, 

FE.Ol. 

04, CA, 

C3.E2 

99, A3 

E5,FD, 

69, A3. 

DD,23 

3E,9E : 

A3,3E, 

9C,47, 

DD.23 

CD.3E, 

80. A3, 

26. BC, 

01,32, 

9C.47, 

DD,23, 

52.55, 

01, CA, 

CA, 12, 

26. A4, 

23. C3. 

59, A4 

C3.44, 

59,A4, 

A4,FD. 

CD.29. 

07.10 



23,10,F1 
19.A2.3D 
0C,E5,7E 
10,EF,C9 
A2,3D,5F 
C9.3A.01 
90.FE.Ù9 
01.90.3A 
CA,A2,FE 
A2,C3,CA 
11.18.9D 
11.90.FD 
D5.1A.D5 
FD.E1.DD 
DA,3A,08 
0C,90,3C 
32,0C,90 
66,01, FD 
23,FD,23 
C3,90,9F 
C3.CA.8Û 
FB,7E,FE 
90,C9,C9 
66.01.FD 
23.FD.23 
4F.FD.66 
A4,FE,0i 
FE,05,CA 
08.CA.2F 
A4.2B.2B 
44, A4, 23 
CD. 51, A4 
44, A4, CD 
01,FD,75 
10,FB,C9 
00.00.10 



,3A,18.A2,FE, 
,32,19,A2,FE, 
,FE,00,CA,63. 
,3E, 02,32, 61, 

06,00.2E,04. 
,90,3C,FE,32, 
,CA.9D,A2,3C. 

02, 90, 3C, 32, 
,02,CA,D0,A2. 
,A2,11,04,9D, 

C3,E2.A2,11, 
,21,FA,9C,DD, 

CD,C7,A3,D1, 
,E1,C1,13,13, 
,90.FE,00,CA, 
,32, OC, 90, FE, 
,3A,U,90,DD. 
,6E,00,DD,74, 
,1Ù,EA.3E,03. 
,FD,66,01,FD, 

A3.3E,01,32, 
,OO.CA,98,A3, 

3A,11,90.DD, 

74,01.DD.6E. 
,10,EA,C9,42, 
,01,FD,6E,00, 
,CA,07.A4,FE, 
,18,A4,FE,06 

A4.FE.09.C3, 
,C3,44,A4,CD, 
i -.3. <-J. Zo t CJ» 
,CD,51,A4,C3, 
,51,A4,CD,51, 

00, C9, 83, 94, 
.06, 08, CD, 26, 
,00,00.07,00, 



00, CC, 69.9740 
05,C8,C3,9F3F 
A2.3E.01.A5C2 
A4,CD,85,AC42 
26,07,16,B0E8 
CA,94,A2.B80B 
32,03,90,BE75 
02,90,C9,C41B 
FE,03,CA,CD2D 
C3,E2,A2,D717 
22.9D.C3.DEBA 
21,E6.9C.E856 
13, 1A,CD,F2CC 
FD.23,FD,FD80 

:2,A3,C3,U4AF 
05,CA,34,0B68 
21,E6,9C,1212 
Û1,DD,75,1A80 
3^,61, A4, 2132 
6E,00,7E,2A10 
Û8.90.C9.327B 
FE,C3,CA,3B4E 

1,E6.9C,427F 
00,FD.75,4AED 
41,52,42,520/ 
FE.00.CA,5889 
03,CA.0C.602C 
CA,1F,A4,686C 
38, A4, C3. 7111 
51. A4, C3, 7870 
44,A4,<:B, 7F2F 
44,A4,CD,8757 
A4. CD. 5 1,9066 
65.94.A3.991A 
BC. 10.FB.9FF3 
10.10.00.A12A 



1735 DATA 10,01,00.07,00, 10,10.00.01,01.42.41,52. j2.jE.2u.A2Eù 
1740 DATA 42.52.55,4E,4f,F3,E5.C5.F5,3A,61.A4,FE,Ul,CA,9B,A89B 
1(45 DA1A A4,FE,02,CA,A1,A4,FE,03,CA,A7,A4,21,62,A4.C3,AD,B*FB 
1750 DATA A4,21,6A,A4,C3,AD,A4,21,72,A4,C3,AD,A4,3E,06,06,BC77 
1755 DATA 08.C5,F5.4E.CD,34,BD.F1.C1.3C.23,10.F4.F1.C1,E1,CSED 
1760 DATA FB.C9. 00,00, 00. 00, 00.00. 00, 00,00. 00, 00, 00. 00. 00, C7B14 
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TETRO 



B. BARBE 



MARS 1990 



IIMIIIIMI 



1U 

20 ' 

30 ' 

40 ' 

50 ' 

60 ' 

70 ' 

80 ' 

90 ' 

100 

110 HEHORY 18FFF:L0AD "tetro.bin":BORDER 0:ÛN BREAK CON 

T 

120 FOR 1=0 TO 15 : 1 NK i,0:NEXT:CALL 19EC2 

130 MODE 1:PEN 1 : 1 NK 1,26 

140 taille=PEEKli9000):bravo=PEEKl!.9OOl): réussi =PE£K(I<9 

002):niveau=PEEK(fc9003):pento=(PEEK(l900S)«256HPEEK(l9 

004) 

150 fui 1 1 ine=(reussi»SO)tbravo 

160 score= (pento»3) M réussi» 1000) • ( taille» 10) *lni veau» 1 

0)t(bravo»5) 

170 LOCATE 2,5:PRINT "LEVEL:"niveau 

180 LOCATE 2.7:PRINT "PEMTO:"tail le 

190 LOCATE 2,9:PR1NT "FULL LINES:"lul I Une 

200 LOCATE 2,11:PR1NT "SCOREi'score 

210 CLEAR INPUT:CALL &BB06 : CLS : GOTO 120 



)LA 
>LB 
>LC 
>LD 
>LE 
;LF 
>LG 
>LH 
>U 
>RB 
>FG 

>HR 
>RN 
>VD 



>AD 
)TU 



>EA 

)EE 
>NQ 
>EN 

♦ 



ABONNEZ-VOUS A CPC HS 



o D(8) (? <â a <è«3<SKK<2>(Mi9© sur l'achat des disquettes CPC 

o Dâ P é® l?ê<s](33(§i)8®Ou sur l'abonnement 

o g% <&<& Gr<300u3s<3 sur le catalogue SORACOM 



■. : ::;■ ■■' 



OUI 

Nom : 

Adresse : 

Code postal : 
Date 



je désire m'abonner à CPC HS pour 1 an au prix de 90 F (6 numéros). Par avion, 
nous consulter. Les abonnements ne sont pas rétroactifs. 
Prénom : cn 



Ville:. 



Signature : 



Bulletin valable jusqu'au 3 1 juillet 90 



Je joins à cet envoi, mon règlement de 90 F au nom de : 
EDITIONS SORACOM - La Haie de Pan - 351 70 BRUZ. 
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CATALOGUE SORACO* 1 



UNE AUTRE FAÇON DE CONCEVOIR 
L'EDUCATIF 



RODY 
ET MASTICO 

Logiciel d'éveil de 4 à 7 ans 

Le joueur qui incarne le personnage de 
Rody, doit partir à la recherche de l'étoile 
multicolore qui a disparu. 
Cette quête est traitée sous forme d'aven- 
ture, au cours de laquelle Rody, aidé par 
Mostico, le robot qui parle, devra décou- 
vrir des indices, en répondant à des ques- 
tions. Ces dernières mobilisent le sens de 
l'observation et de la réflexion chez l'en- 
fant. 

Réf. GEN5 010CPC 



HAMSTERS EN FOLIE 

A partir de 1 ans 

Hamsters en Folie est une simulation économi- 
que et humoristique qui vous entraîne dons les 
mystères de la gestion d'élevage de hamsters. 



A vous d'accoupler vos animaux, de vendre 
des hamsters, d'acheter de la nourriture, des 
cages, des magasins, de payer vos loyers et 
de faire face à toutes les dépenses. . . 
Deux niveaux de difficulté. Sauvegarde possi- 
ble du jeu en cours. 

Disponible sur disquette 3" pour CPC 464, 
664 et 6 128 
Réf. GEN5 007 CPC 

LES 4 SAISONS DE L'ECRIT 

Français, expression écrite, 

vocabulaire, lecture 

Donnez à vos enfants les moyens et l'envie 
d'écrire avec : 

- Un traitement de texte simplifié qui permet 
de rédiger, d'imprimer, de sauvegarder les textes 
de son choix. (Les commandes sont expliquées 
d'une manière très simple et conviviale). 

- Des modules de perfectionnement pour écrire 
sans fautes de ponctuation, améliorer son style, 
enrichir son vocobulaire, trouver et dévelop- 
per des idées. 



Au terme de ces efforts, le génie du langage 
apparaîtra... avec une surprise t 
CE/CM de 7 à 1 1 ans 
Réf. GEN5 005 CPC 
6e/3e de 1 1 à 1 5 ans 
Réf. GEN5 006 CPC 

DESTINATION MATHS 

Afin de participer à la grande aventure 
spatiale du XXIème siècle, développez vos 
aptitudes mathématiques. L'essentiel des 
connaissances pour CE, CM, 6ème/5ème. 
Très grande facilité d'emploi, réalisation 
exceptionnelle : décors futuristes, anima- 
lions, musique... 
CE1/CE2 

Réf. GEN5 001 CPC 
CM1/CM3 
Réf. GENS 002 CPC 
6ème/5ème 
Réf. GEN5003 CPC 



LIVRES 




Pour tous les 

passionnés 

d'ondes courtes, 

codage, 

décodage, 

réception/ 

émission, 

interfaces. 



Disquette : 250 F 

COMPILATIONS CPC 

Vous recherchez les anciens numéros 

de CPC ? 

Vous souhaitez connaître le mode &T^^ 

d'emploi de certains logiciels du ^^ "v 

téléchargement ? 

Alors voici les compilations de 1 à 4 

et de 5 à 8 de CPC. 




Nombreuses 
routines : utilitaires 
de programmation, 
utilitaires 
graphiques, la 
gestion de fichiers, 
utilitaires 
imprimantes. 



Environnement 

matériel, commande 

deCPM3.0,le 

BDOS, le BIOS, 

fichiers binaires, 

éditeur de 

disquettes, 

désassembleur Z80, 

graphismes, 

caractère à la 

loupe. 




Disquette :150F 
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R 



pour i i mGUSSir en français et en mathématiques 
8 programmes bien remplis : 2000 questions - 50 exercices 



pour trouver tout seul 



SI HGE &• MM p 

C<vnp>«i* 0*' if ou H 



- Elaborés par une équpe d'ensetgnants et d'informaticiens 

- Testés dans de nombreuses écoles de Loire- Atlantique (lire CPC n° 
35 -Juin 1968). 

- L'expénence montre qu'après 15 A 30 heures de travail la plupart 
des élèves font dans leurs dictées moins de 10 % d erreurs sur l'en- 
semble des régies de la disquette 

1) En cas d erreur, l'ordinateur pose des questions qui arjent à trouver 
la bonne réponse Sa méthode lait appel au raisonnement plus qu'à la 
mémoire 

2) L'ordinateur chronomètre le temps de réponse Si ce temps est 
supérieur au temps normal I ordinateur r avenu que s'il ne répond pas 
plus vue i continuera à faire des fautes dans ses dictées 

3) Les résultats sont enregistras pour encourager l'élève I peut voir 
que plus il travaie, plus le nombre de règles acquises augmente 



pour donner le moral 




,„.™ ,«», ♦ 



ORTHOGRAPHE CE 


-VouF 


-ou, où 


-ce 


- ou. oup, oua, out 


-pluriel noms 


- accord das adjacatt 


-«UX.tMJ.aU, MU 


- accord du verbe - ternirai «n • 


-h, ah. in 


-I.HS.MM 


- têmfttt dtt notnt 


-..«..y.ie.1 


-prêtant 


- noms an ». «ht 


- m. en. *u am 


-prêtant avcit.é** -pijrrtoeertomsenal 


-•>•,« 


- prêt, tant, voi 


- pklM dtt noms «n ou 


-c.que.ok.S.SS.C 


-pata* compote - tout, tout, toute 


-m.n 


-ar.ra;ar,io 


-leur, leurs 


-sss 


- tu. eux, tut. tut - imptrâtt 


-a,* 


- on. om. ont ond - «npéraal ave*), art 


-on. ont 


-«.et. et 


-impartait 


-son.Hnl 


-I.Mt 


- fuu êta ave* 


-q.qu.j.j 


- las posât» Is 




-F.FF.pri 
-ion. oin 






-CttCtOt 


612S 
réf. UA01 CPC 







ORTHOGRAPHE 4*-3* 


- mpartait, mdk 


- passé antérieur 


- accord p passé 


-on-onn* 


é-aiSé-at 


-oond prêtant 


-ropar'atindic. 


-rnpéraatpfét. 


- ttflTMnafton mots 


- accord p passa 


-*.'** 


-oond. passé 


-pr«t, v.irfèojâ 


- mpéraalptêa 


-pt* noms oomp 


-satvcatve'-t'eet 


- pronoms ratalk 


-oond pasté 


- pataé smpte tnd 


-...air ...tir tto. 


- tarmmaMon mots 


- adj.dt couttti 


-v. ancer-oal 


-vtrbt asator 


-tnp ou pats s 


-lc«mtf ittaoY 


-accotdp paaaé 


- /trot ou p pattt 


- p pteaantad) v 


-tubj pi étant 


- impart rpaaa, s 


- accord tout marna 


-mots en té se 


-«ccordnu-dtfni 


- voMpaasivt 


-subj mparlaii 


- (utur antérieur 


-quaKtWale 


-mate oulémmn 


-cjjaiqutrjxéqut 


-oond prtttnt 


-v partcubars 


- passa antérieur 

- accord p passé 








61U 

réf. 14407 CPC 







LES 4 OPERATIONS 



- -mm ■OO »o- 0* I 



.7» U ".-« 

«tac CM- iMi. 2 
a*at CU2 ivaau ' 

• »-j»cmtJ 

• »-J»< p*4 

• oa-J»«: par S 

• oa- j»c part 

• «• miApkc par 7 

a M » .Apte par a 

• om - j-xk. par » 



- -JIDt CU2 -r 
-mjty*. CUIr* 
-Sva>w<C£2nn> 



-««•«kCUoin.1 



61 2& 
réf. 14405 CPC 



ORTHOGRAPHE CM 


-SouSS 


- et. cet c» m cas 


-parte paaaé «vac 


-ou-où 


-écuar 


att 


-gcugj-couqu 


-Mur eu laits 


-parte, passé avec 


- avoir au prêtant 


- sait, tais, c'aat 


ave* 


-acuê 


-peu. peux, peut 


-si. a sy 


-on ou ont 


-prêt. prêt, pré 


- tout, tout, lOU» 


-son ou sont 


-accord du vtrbt 


-passés. 1er. 2a 0/ 


-été au prêtant 


- sans, s'en, sans 


-passés. 3t 0/ 


-lêmffHn dtt noms 


- mats, mat, met 


-oonolron pr éeent 


-otsousee 


-partope patte «ni 


-oonoUp verbe en 


- prêtent dtnnlc 


-parte paaaé adjscef 


tjaj 


-os oust 


-quel, qu'aie 


-condtt p vtrbt «n 


-le. la. fa. rat 


-mpéraat prêtant 


tyer 


- mpartait dt nndic 


- pan patte été- avot 




-quand ou qu'an 
-tant, fan. ttmps 


















réf. 14402 CPC 











VOCABULAIRE CM 


• nanoryrrt* 


-pendu 


- placer dae mots 


- contai aa 


-pendu 


- placer des mots 


-synonymes 


- placer dea mots - homonymes 


- sans prop Hojuré 


- pUotf des mots -tanonymee 


-préfet» 


- placer dtt mots -synonymes 


-euffaet 


- contât as 


-conta* es 


-farnlJec 


-synonymes 


- raont dtt mots 


-auffaat 


-contatat 


-sens ex pressent 


-vtrtjesmomt 


- placer dtt mots -dérivét 


-adjecals 


- placer dtt mots - pJacar dtt mots 


-adverbes 


- placer des mots - racine dtt mots 


- noms de mettant 


- placer dae mots - advarbet 


- acbjcltsrvtrbat 


- placer des mots -centavaa 


-parenymet 


- placer des mots -aynonymes 


- plaça» dtt mots 

- placer des mots 






612S 
réf. 14404 CPC 







MATHEMATIQUES CM 



- écirm k/* *or"t> ar tft* 




- * » • 

«r '0.108. 1000 du-ta 
- taoa'npaatan aaa ome 



6124 
rif. 14400 CPC 



ORTHOGRAPHE 6«-5* 


-■•!« oro-a"- 


-mjt.mt.mM 


- a a u rj i •- -> 


-axtatata 


-mmmt Ai «ma 


-»jai«wO>*aja 


- préaa"! om ' ^o<at* 


- L-jOa taf 


-mwmmm 


- amatan mm «, atr 


-■wa,fevt«AtM 


-atra.tftn.0ant 


- mjxm an aa* au tu 


- formai ou pan pas 


-«mapaaava 


-aaajBatBiBM 


-m'arma, m'ai «ratait 


■ < ir "■' 


— aajajtvt «a nntficrei 


-oanortan. pajajaj 


- HA* anttnaur 


- «trfleaan es*, gar. , » 


-méma 


-iwntvNjrM 


-etaeseaBi 


-~a» -** -•« 


-O-a^Ox».»- 


axKrtaXpsl 


- -'■ 


-partaaapMé 


-aa.oata.eat 


-'rna*1»P'*aar" 




-natal w -pi al 


-éauv.rtaui 




-ra,it,faa,H 


-ajueiauaUs* 




-nm.cmn.mm 


- a^aixit p^aan^ 




-pÊmé mrmmmtftmtmf 










5I2« 
rêf.L4403CPC 







CONJUGAISON 



-varaaaanfjajfnpi -tmmê» 

*■■■ -m-;* -paaaéw 



-■"panariir an» - p>ua«ja-oariart 

-maanaMOnart -nwaamWc l u r - 

— *npant« tfr^arf - ayante préasnt 



61 3S 

rit. 14A06 CPC 



200 F 

le programme 



pour 
464/664/6128 



Société Mavenriaise d'Impression 53100 MAYENNE 
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EDUCATIFS : 4 NOUVEAUTES INDISPENSABLES ! 



DECLIC LECTURE 

niveau CP 

Logiciel d'apprentissage 
de la lecture de base. 

Conçu pour éviter on échec dons 
l'apprentissage de la lecture au CP, il suit 
une progression prévue pour déclencher au 
bon moment le mécanisme de la lecture. 

UTILISATION : 

- En complément de la classe de CP. 

- Pour le travail avec les parents. 

- Dans les activités de soutien, d'aide et de 
rééducation. 

- Classes et établissements spécialisés. 

OBJECTIFS : 

1 - Déclenchement de la synthèse, de la 
découverte du 'Savoir-lire", du mécanisme 
de la lecture. 

2- Etude systématique des lettres et des sons 
: lecture et effet sur l'orthographe d'usage. 

3- Construction et lecture de phrases : 
lecture syntaxique. 

4- Vérification de la compréhension du sens 
de petits textes. 




NOUVEAU 


Réf. MC80CPC 


200 F 










^ 





ANGLAIS - ALLEMAND - ITALIEN - ESPAGNOL PRIMAIRE 

niveau primaire et débutant 

Ce logiciel est destiné aux élèves des clas- 
ses primaires et début sixième et devrait 
leur permettre d'apprendre les premiers mots 
de vocabulaire et les premières notions de 
conjugaison. 

- DICTIONNAIRE (6 thèmes) 
Couleurs, nombres, animaux, vêlements, 
corps, divers. 

- PHRASES à compléter (6 thèmes). 

- TEXTES : Histoires à ranger dans l'ordre 
chronologique. • Possibilité d'en créer. 

- CONJUGAISON : Au présent rimple de 7 verbes courants. 
Options Consultation et interrogation. Nombreux dessins et graphiques. 







1 • 


SUITB 4 




1 
. 

% 

M 

1 1 

l* 


■nnr 

(h- -ow 

ihr -«*- 

IN- hr*ri 

Ih- (mwrv 

l h — '.haulil»r 1 

thr h--«* 

Ih- «ht «h 

ti.- root 


(IVU Motitl 

L* ftOWCNl 



Réf. anglais : MC 99 CPC _200 F 
Réf. allem. : MC 97 CPC 200 F 



Réf. italien : 
Réf. espag. 



MC96CPC_ 
! MC 95 CPC 



200 F 
200 F 



ANGLAIS 43 

niveau Aè et Se 

CONJUGAISON : 

- Visualisation de phrases décomposées (sujet, verbe, complément). 

- Règles d'application des temps avec exemples, inerrogation et ajout de phrases. 
VERBES IRREGULERS : 

- Visualisation et recherche. 

- Interrogation. 

- Possibilité de modifier le fichier. 



Réf. MC 94 CPC 



.200 F 




SCIENCES PRIMAIRES 

L'homme 
niveau primaire 



- Les sens 

- Les os 

- Les muscles 

- La digestion 

- Les dents 

- La respiration 

- La circulation 



Consultation et interrogation avec schémas et 

graphiques. 




Réf. MC 98 CPC 



200 F 
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BON DE COMMANDE 



A expédier à : Editions SORACOM 
la Haie do Pan - 35 1 70 BRUZ 



DESIGNATION 



Prix unitaire 



Quantité 



Port 



Montant 



Pour choqua article, entourez /• ou lot rf choitis. 
ANCIENS No* AMSTAR & CPC 

N° 24-27-21-29-30-31 -32-33-34 
3S-36-3S-39-40-4! -42-43-44-45 

DISQUETTES AMSTAR & CPC 

N°20-21-22-23-24-25-24-27-28-29 Abonné 

(une disquette réunit 2 numéros consécutifs d'Arnslor t CPC) Non obonné 

ANCIENS Nos AMSTAR 

IP5-4-7-I-9-10-11 
12-13-14-15 
14-17-11-19-20-21 
22-23-24-25 

DISQUETTES AMSTAR 

N° Hda 1° 1 oi I kkIcs) - N° 2 (d. n° 9 ■ 1 1 inclus) 
N°3(d.i°17i»25iKln) 

ANCIENS Nos CPC 

IMO- Il - 13- 14- U- 23 -24 -25- 24 
27-21-29-30-31-32-33-34-34-37 

ANCIENS Nos HORS-SERIE CPC 

N°4 -7-8-9-10-11 -12-13-14-15-14 
N°17-l«-19-20-21-22 

DISQUETTES CPC ET DISQUETTES HORS-SERIE CPC 

N°l-2-3 -4-5-4-7 -1-9-10-11 -12- 13- 14-15- 14-17-18-19 

(une disquette réunit 2 numéros consécutifs de CPC) 

HS1 - HS2 - KS3 - HS4 - H55 - K54 - H57 - HSt - HS9 - H510 - H51 1 

H512-H513-HS14-H515-rtSI4-H517-H5l8-HS19-HS20-HS21-HS22 

ABONNEMENT 6 DISQUETTES (non rétroactif) 

DISQUETTES "ARCADES" Téléchargement AMSTRAD CPC 
Câble pour téléchargement 



LOGICIELS EDUCATIFS - LIVRES - DIVERS 



25 F (unilé) 

26 F (unilé) 



110F /un/té/ 
1 40 F (uniléj 



15 F 

1 8 F (uniléj 
20 F lunilél 
22 F iunilé) 



110 F (unilé) 



25 F (unilé) 



1 5 F /unité) 
1 7 F /unité; 

Abonné : 
1 10 F /unité; 
Non abonné : 
1 40 F (unilé) 

600 F 

60 F 
89 F 



Franco 
Franco 



Franco 
Franco 



Franco 
Franco 
Franco 
Franco 



Franco 



Franco 



Franco 
Franco 



Franco 

Franco 
Franco 

5F 

5 F 



DESIGNATION 



REFERENCE 



Forfait port * 10 F par logiciel et 10% pour livres 



Pour tout envol par avion : pour DOM-TOM el étranger 
supplément forfaitaire de 10 % par article 



3 Facultatif : recommandé + 1 F par commande 

MONTANT GLOBAL 



10F 



Je joins mon règlement : J chèque bancaire J chèque postal □ mandat 




PAYEZ PAR CARTE BANCAIRE 

I i i i I i i i I i i i 



i i i 



Dots d'expiration 



_L 



_L 



Signature 



(inscrire les numéros de la carie, ta date el signer) 



Date 



Signature 



i 



Nom: 
Adresse : 


Prénom: 






Code Postal : 


Ville» • 


CCRIM CN MAJUSCULES 



Afin de faciliter le traitement des commandes, nous remercions noire aimabie clien- 
tèle de ne pas agrafer les chèques, et de ne rien inscrire ou dos 



\ Craaaaiii*» : U cwmi.»^ (Mtvgrulon ou féMrvtos a cals-ci aeita). Toute abaanca da prtdsont «et «ou* la rat^cmaba» da racnatsur U vanta « 

conclu* das acospaion du bon da commanda pat nota sooaM. su> lat évadai Aspor**** untguamant 
LmpriM: [m pu MtfjéticrtvaUHm du jeu rj* la rjarijaW du caraio«^ jusqu'au n^ 
vanaaon d* cru emportant* das lournaasurs 
l>iipWi;LarMar*oft8ra«TviantaTj<^ 

Tmntport : La marctianc t sa voyaga mt "•" IJti * D** ** daMnattra La livraison sa taaiart par cota pcaoi ou par lanapataur La* prix ntksiM sur la bon da ectwnarxJa sont valabtas sur loua la Fiança ntatopefum, * 20 F par 
arfcitpourOu0a-M«pwaMOT«au««JBU Pour banèlciat ^tmy^jsv^aa^ruyjsrmjns^^tmrnitMiimmmtoompcu 

l'anvol an t «commanda A récapion daa paquafj. toula oatanaaioi don ata styuJa* 
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Media Box Disquettes 5"1/4 

182x178x348 mm 
Réf. 310.501.1 



Media Box 
Cassettes 
Vidéo (L) 

222x135 
x348 mm 
Réf. 310.540.0 




pour 70 disquettes, livré 
avec séparations et index 



Media Box Mini Cassettes 

148x91x348 
Réf. 310.503.3 



pour 9 casettes 

VHS, V2000, Betamox 



pour 1 6 mini 
cassettes 




Media Box 
r Disquettes 

r-n/2 

221x135x348 mm 
Réf. 310.506.4 



pour 150 disquettes 





Media Box 
Compact Disc 

148x135x348 mm 
Réf; 310.50 2.6 

WBBBBM 

pour 1 3 compocts dises simples 



Media Box 
Data Cartridge 

222x135x348 mm 




v Media Box 
Cassettes Vidéo 
VHS-C 

148x91x348 mm 
Réf. 310.505.7 



pour 8 cassettes 




310.518.7 

MZEE 

pour 1 1 Data Cartridges 
type 3M 



Media Box 
Cassettes 
Vidéo 8 

148x91x348 mm 
Réf. 310.531.6 




Media 
Box 
^r Compact 
DiscMuIti 

148x177 

x348 mm 

Réf. 100.525.0 

pour 23 CD simples 

ou 1 1 CD doubles 



pour 1 2 cassettes 



Media Box 
Photo 




| port 25 F par article I 



222x135 
x348 mm 
Réf. 310.501.9 



Plaquettes 
couleur 



pour 1 40 tirages 

formol maximum 13x18 plus 



(lot de 3) 

DB 



Mod ule serrure 

(bien indiquer la boîte) 

9S 



Exemple de 
combinaison des modules 



Voir bon de commande page 



Découvrez l'univers 
des disquettes amstar & cpc 




Retrouvez tous les 

programmes publiés 

dans AMSTAR & CPC 

ainsi que dans le 

Hors-série. 

Plus d'erreurs de 

saisie, 

plus de nuits 

blanches devant 

l'écran et des 

surprises (démos, 

écrans...) 

Bon de commande 
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